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Weiterhin: 


Komplexe Grafik 

Sie lernen die mathematischen Grundlagen von Fraktalgrafiken und erarbei- 
ten einen kompletten Fraktalgenerator zur Erzeugung von “Apfelmännchen*- 
Bildern, 


Der Computer lernt 

Erleben Sie ein Paradebeispiel für “Künstliche Intelligenz“: Das Programm 
*Minischach* ist lernfähig und wird mit jeder Partie ein bißchen besser. 
Wordmaster 

Sie raten ein Wort, das sich der Computer ausgedacht hat. Dann rät der 
Rechner ein Wort, das Sie sich ausgedacht haben. Wer braucht weniger 
Versuche? Sie werden sich wundern... 


Wordketten 
Mit einem raffinierten Algorithmus löst der CPC Wortketten-Rätsel. Oder er 
erfindet neue Rätsel - ganz wie Sie wollen. 


Entwicklungshilfe 

Eine gut ausgestaltete Simulation versetzt Sie in die Lage eines Entwick- 
lungshelfers, der eine Hungersnot abzuwenden versucht. Aber Ihre Mittel 
sind begrenzt. 


Das Software-Experiment 
e Siebzehn verschiedene, lauffähige Programme 
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Der Computer als Stratege 

Ein raffiniertes System von Spielzugbe 
wertungen macht denCPC zu einem fa 
unschlagbaren Gegner im Gobang-Spi 
der Ihnen anfangs saftige Niederlagen 
bescheren wird. Keine Angst - das 
Programm ist zu schlagen - aber wie, d 
müssen Sie selbst herausfinden. 


| 


Das Spiel des Lebens 

Nach natürlichen Prinzipien des 
Wachstums erzeugt der Computer 
phantastische, kristallförmige Farb- 
strukturen. Ändern Sie die Regeln uı 
Voraussetzungen und sehen Sie, wa 
für neue, noch nie dagewesene For- 
men sich ergeben. 


Das Ökologie-Experiment 

Der Computer zeigt Ihnen in animie 
ter Farbgrafik einen simulierten 
Lebensraum mit Weideland, Schafe 
und Wölfen. Erforschen Sie die öko 
logischen Gesetzmäßigkeiten, und 
schaffen Sie ein stabiles, natürliche 
Gleichgewicht. 


acrhitt, 


Pascal läßt grüßen 

Ein erstaunliches Programm enthi 
verborgene Strukturen im 
sogenannten “Pascalschen Drei- 
eck“. Die grafische Darstellung 
ergibt traumhaft schöne und farbic 
Musterbilder. 


Mit roher Rechengewalt 

Mit dem “Brute-Force*- 
Algorithmus darf der CPC sorrict 
tig loslegen und spielt mit roher 
Rechengewalt in dem afrikani- 
schen Strategiespiel “Kalaha“ all 
Gegner an die Wand - oder kön- 
nen Sie ihn trotzdem schlagen? 
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Editorial 





Liebe Leser, 


haben Sie Angst vor Ihrem CPC? Trauen Sie sich nicht in das Zimmer, in 
dem Ihr PCW steht? Ist Ihr PC Ihnen unheimlich? Sie werden sich sicher 
über Sinn oder Unsinn dieser Fragen wundern und schließlich kopfschüttelnd 
weiterblättern. Aber haben Sie schon einmal Ihre Bekannten und Verwandten 
beobachtet, wenn Sie als versierter Fachmann über Ihr Lieblingsthema 
reden, die umsitzenden Personen jedoch mit Unverständnis reagieren? 
Meistens werden dann auch Stichworte wie 'Arbeitsplatzvernichtung’, 
'Vereinsamung', Stumpfsinniges Denken’ laut, die Ausdruck eines Zustandes 
sind, der leider immer noch in den Köpfen vieler Mitmenschen herrscht, 
nämlich der Computerangst. Dabei arbeiten Kaffeemaschine und Computer 
mit Strom; und, Hand aufs Herz, wer hat schon Angst vor einer 
Kaffeemaschine? 


Vielleicht sind Handel und Industrie nicht ganz unschuldig. Durch die 
rasante Entwicklung im Computermarkt verlieren viele Interessierte und 
'Kurz-davor-Käufer' den Überblick, den man gerade hier behalten sollte. 
Zuviel ist in den letzten Jahren auf uns alle eingestürmt, zuviel an 
technischen Details, zuwenig an Information. 


Wie können wir als Besitzer eines CPC, PCW oder PC daran etwas ändern? 
Indem wir unseren Mitmenschen den Computer als das präsentieren, was er 
in Wirklichkeit ist, eine Maschine, die uns die Arbeit erleichtern soll. Eine 
Maschine, die wir beherrschen sollten, und nicht umgekehrt. Wir von der PC 
Amstrad International wollen Sie dazu noch mit leicht verständlichen 
Informationen und Programmen zum Lernen, zum Arbeiten, aber auch zur 
Entspannung unterstützen. Und wenn wir einmal über das Ziel 
hinausschießen sollten, so sagen Sie es uns, indem Sie uns Ihre Kritik und 
Ihre Anregungen mitteilen, denn unsere Zeitschrift soll nicht nur da sein, 
sondern für Sie da sein. 


Die PC Amstrad und ihre Leser, also Sie, können eine ganze Menge dafür 
tun, daß die Angste vor dem Neuen abgebaut werden. Packen wir es also an, 
wie es so schön heißt. 


In diesem Sinne 


Ihr 
Jürgen Borngießer 


Redaktion PC Amstrad 
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Der Chip macht die Musik 4 
- Grundlagen über die Musikerzeugung auf 


dem Computer. 
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- Im Test: Der AMSTRAD-AT 2286. Wie entsteht Musik 
: auf dem Computer? 
AMS-Line € 23 Unser Grundlagen- 
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24 Im Zauberreich der Grafik s 
- Erweiterte Optionen für die Bildschirmbear- 
beitung auf dem CPC 6128. 
Letzter Teil der Grafikserie. 
Es ist nicht alles Gold, was glänzt 34 
- Ein ’Spring- und Rennspiel’ für den CPC. 
Schnell kalkuliert — Geld gespart 42 


- Eine Mini-Tabellenkalkulation für den CPC. 


ASSEMBLER: 


47 Die Assembler-Ecke 
- Der LOAD- und SAVE-Befehl unter Maschi- 
nensprache. 
TIPS & TRICKS: 
100,—- DM für 1 kByte 50 


- Erstaunliche Programme zum schnellen 
Abtippen. 


Farbige Zeiten 54 
- Durch geschickte Programmierung mehre- 
re Modi gleichzeitig auf dem Bildschirm. u 


Farbensuche 56 
- Ein Farbeneditor, mit dem Bilder auf leichte 

Art geändert werden können. Mit Erzeu- 

gung eines BASIC-Laders, 


DIN A4 für ARTWORX 58 
- Eine Super-Druckererweiterung sorgt für ei- 

nen DIN-A4-Ausdruck in Verbindung mit 

dem ARTWORX-Programm. 


Bildschirmtools 59 
- Wie der Videochip mit einem Programm 

zur besseren Bildschirmauflösung genutzt 

werden kann. 


SOFTWARE REVIEWS: S22eananın 
28 Spiele 
ee 
- 3D-Labyrinth und 3D-Light Cycle Wr 
32 Gamers Message 


» — Wenn Sie Lösungen zu Spielen suchen, 
dann sollten Sie unbedingt bei uns rein- 
schauen. Denn hier finden Sie jede Menge 
Tips, Karten und Lösungswege. 


Aus der CPC-Trick- Pr 
kiste: Ein Super- N \ 9 
Farben-Editor 
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Wir stellen eine sehr preisgünstige Tex tverarbeitung aus dem Share- 
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PCW/JOYCE: 


Joyprint 62 


— Elegant, elegant. Einfaches Erstellen von 
Briefköpfen und/oder Einladungskarten mit 
dem JOYCE-Drucker leicht gemacht. 


Charakter Changer 

— Wollen Sie “mal eben” unter CP/M ein Zei- 
chen umgestalten? Mit “CHRCHA” kein 
Problem! 

db-Assi 

- Im Test: db-Assi. Ein Hilfsprogramm, das 
die Programmierung und Einbindung von 
Pulldown-Menüs in dBase ermöglicht! 

MICA-CAD 

— Auf dem Prüfstand: Das Programm MICA 
verspricht einiges an Anwendungsmöglich- 
keiten. Was davon zu halten ist, können Sie 
im Testbericht nachlesen. 

LocoMail-Grafik 

Balkendiagramme unter LocoMail 

— Unter LocoScript ist es schon bekannt, aber 


unter LocoMail ist es etwas ganz Besonde- 
res. 


Zweitausend gute Gründe..., 

- sich eine Festplatte anzuschaffen, möchten 
wir Ihnen mit diesem Artikel näherbringen. 
Weiterhin erhalten Sie wichtige Tips zum 
Umgang mit dem Massenspeicher. 


67 
71 


74 


75 


76 


78 Schnell geschoben ist halb gewonnen. 

— Die Schiebung ist zwar verpönt, aber nicht 
in unserem BASIC2-Spiel. Dort müssen Sie 
durcheinandergeratene Felder verschieben. 

80 Die dritte Dimension 

— Eine der Hauptanwendungen auf dem 

Computer ist CAD. Wenn Sie mehr darüber 

Y wissen möchten, dann probieren Sie doch 
unser RAIN-CAD; ein tolles Zeichenpro- 
gramm in BASIC2. 


90 Und er dreht sich doch 
- Professor Rubiks Würfel jetzt als Compu- 
tersimulation. 
94 Aufräumen mit Bedacht 
— Unser PASCAL-Programm löscht Files in al- 
len Verzeichnissen, natürlich mit Sicher- 
heitsabfrage. 
98 Textschreiben für Sparsame 
— Textverarbeitungen sind oftmals zu teuer, 


deswegen haben wir für Sie PC-Text 2.0, 
ein Shareware-Programm, getestet. 
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Aktuell 








Von der PC-Technik Hennef gibt 
es jetzt speziell für den PCI512 
von Amstrad ein EGA-/VGA- 
Set mit Monitor, separatem 
Netzteil und der speziell herge- 
stellten Adapterkarte. Das sepa- 
rate Netzteil wird dann benötigt, 
wenn der Amstrad-Monitor 
nicht mehr als Stromlieferant 
zur Verfügung steht (eingebau- 
tes Netzteil). Das Set wird in 
zwei Varianten ausgeliefert: 


— PCI5l2er EGA- Set mit 
14-Zoll-EGA-Monitor, auch für 
CGA geeignet, Netzteil für 
1498,— DM. 


— PCI5l2er Superset mit 
14-Zoll-Monitor (RGB und 
Analog-Eingang), CGA-, Her- 
cules-, EGA-, und VGA-Modus 
(720*480 Bildpunkte) für 
1698,— DM. 


Das Netzteil ist mit einem 
Schlüsselschalter ausgerüstet, 
es ist außerdem farblich an den 
PC 1512 angeglichen. Mitgelie- 
fert werden ebenfalls ausführli- 
che deutsche Anleitungen, die 
Karten brauchen allerdings 
durch den speziellen Aufbau nur 
in einen freien Slot des PC ge- 
steckt zu werden. 





Ebenfalls neu ist eine Kombi- 
karte für den PC1512, die eben- 
falls in einen freien Steckplatz 
gesteckt wird und den RAM- 
Speicher selbständig auf 640 
kByte konfiguriert. 

Dazu befinden sich auf der Pla- 
tine Anschlüsse für zwei analo- 
ge Joysticks. Die Karte ist für 





248,— DM zu erhalten. Ein Set 
mit Karte, analogem Joystick 
und einem Spiel kostet 298,— 
DM. 


Info: PC-Technik 
Inh. E. Jaksch 
Rheinstr. 16 
5202 Hennef 1 
Tel.: 02244/3811 





Neu im Angebot der Dynamics 
Marketing GmbH befindet sich 
eine COMPRO A/D-Gamecard 
und der Competition PRO PC- 
Joystick. 

Beim Joystick handelt es sich 
um einen mit Mikroschaltern 
ausgerüsteten Digital-Joystick, 
dessen Impulse anders als bei 
den PCs sonst üblichen Analog- 
Joysticks durch die Schalter an 
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die Gamecard gelangen und dort 
umgewandelt werden. Beide 
Teile sind nur getrennt zu bezie- 
hen, der Joystick kostet 49,— 
DM, die Gamecard ist für 79, — 
DM zu erhalten. 


Info: Informationsdienst 
Dynamics Marketing GmbH 
Friedensallee 35 

2000 Hamburg 50 

Tel.: 040/391287 


der 


Der Citizen Swift 24 ist für den 
professionellen und privaten 
Einsatz gedacht. Der 24- Nadler 
druckt mit einer Geschwindig- 
keit von 192 Zeichen pro Sekun- 
de im Schnellschrift- und mit 64 
Zeichen pro Sekunde im Schön- 
schrift-Modus. 

Drei Emulationen sind vorhan- 
den, für den EPSON LQ850, 
NEC P6 Plus und IBM Proprin- 


ter X24. Eine Hauptneuheit in 
der Preisklasse unter 1100,— 
DM ist die LCD- Anzeige für 
die Benutzerführung. Der ge- 
naue Preis beträgt 1098,— DM 
inklusive Mwst. 


Info: Henschel + Stinnes 
Agentur für Offentlichkeits- 
arbeit 

Ismaninger Str. 52 

D-8000 München 80 
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VGA ist im Augenblick in aller 
Munde, wenn es um die Darstel- 
lung von Grafik auf dem PC 
geht. Die Beaugrand Bürokom- 
munikation GmbH hat sich die- 
se Tatsache zunutze gemacht 
und ein Zeichenprogramm für 
VGA-Computer herausge- 
bracht. 'COLORIX VGA- Paint’ 
ist ein Freihandmalprogramm, 
was auf die Farbenvielfalt von 
VGA zurückgreift. Das Pro- 
gramm unterstützt neun ver- 
schiedene Bildschirmmodi mit 
16 aus einer Palette von 64 Far- 
ben, bzw. 256 Farben aus einer 
Palette von 256.000 sowie Auf- 
lösungen von 320 * 200 bis 1024 
* 768 Bildpunkten. 


Bei der Eingabe können die Ta- 
statur, Zwei- oder Dreitasten- 
Mäuse, Lichtgriffel oder Digita- 
lisier-Tabletts verwendet wer- 
den. Insgesamt stehen 25 Tin- 
tenstrahl-, Nadel-, Thermo- und 
Farbdrucker-Treiber und drei 
Nur-Schwarzweiß-Druckertrei- 


Die Firma acw-soft aus Bonn 
teilte uns noch Neuigkeiten zum 
CPC-Laufwerk (vorgestellt in 
Heft 6/89) mit: 


Das Laufwerk wird jetzt mit ei- 
nem Laufwerks- Anschlußkabel 
von einem Meter ausgeliefert, 
jetzt ausgelieferte Floppies für 
den CPC 6128 verfügen über ei- 
nen Umschalter zur Nutzung 
der zweiten Diskettenseite, bei 
vorher ausgelieferten Laufwer- 
ken kann ein problemlos einzu- 
bauendes Nachrüstkabel für 
49,— DM nachbestellt werden. 
Das Laufwerk ist auch für die 


ber (darunter HP Laserjet Plus) 
zur Verfügung. Das Programm 
kann dazu DTP-kompatible 
GEM-Image und PCX-Bildda- 
teien lesen und schreiben. Au- 
ßer den normalen Zeichen- und 
Malfunktionen bietet "VGA- 
Paint’ auch diverse Funktionen 
zum Einfärben und Mischfunk- 
tionen, bei denen alle 256.000 
Farben genutzt werden können. 


Darüber hinaus gibt es Sonder- 
funktionen wie Auffinden einer 
bestimmten Farbe, automati- 
sches Erstellen eines Farbver- 
laufes oder manuelle Generie- 
rung eigener Muster. Bildaus- 
schnitte können geladen, ge- 
speichert, kopiert, versetzt, 
gedreht, gespiegelt werden, eine 
Zoom-Funktion vergrößert be- 
stimmte Ausschnitte. 


Info: Beaugrand 
Bürokommunikation GmbH 
Otto-Hahn-Str. 24 

6056 Heusenstamm 

Tel.: 06104/63092 


MS-DOS-Computer AMSTRAD 
2X86, Schneider EuroPC und 
Tower PC erhältlich, der Preis 
beträgt 249,— DM. 

Außerdem liefert acw-soft 
Zweitlaufwerke mit 80 Spuren 
und 720 kByte für den PCW- 
(Joyce-) Computer ab 338,— 
DM aus. 

Hier noch einmal die komplette 
Adresse von acw-soft: 

Info: acw-soft 

Andreas C. Walther 

Breite Str.16 

5300 Bonn | 

Tel.: 0228/636818 
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Weitere Hilfsmenüs erhalten Sie mit: 


Block- und Bateioperationen 
Einstellungen und Fensterverwaltung 
Cursorsteuerung 

Erueiterungen 

Eingabe von Druckercodes 


Sie können Ihre Eingabe mit den folgenden Tasten editieren: 


Cursorbewegung . 
r 


Das Low-Cost-Textprogramm 
"TextMaker’ von der SoftMaker 
Software GmbH in Nürnberg ist 
jetzt in der neuen Version 2.01 
erschienen. "TextMaker 2.01’ 
verfügt über einen WordStar- 
kompatiblen Befehlssatz und 
Pulldown-Menüs, sowie über 
bis auf vier Ebenen mit Texten 
oder Befehlsketten belegbare 
Funktionstasten. Das Pro- 
gramm ist jederzeit umschaltbar 
vom Text- in den Grafikmodus, 
Texte lassen sich somit vor dem 
Ausdruck auf das Layout über- 
prüfen. Dabei werden CGA-, 
Hercules-, EGA-, VGA- und 
MCGA- Grafikkarten unter- 
stützt, im Textmodus läßt sich 
auch die Zeilenanzahl pro Bild- 
schirmseite auf 43 oder 50 Zei- 
len vergrößeren. 

"TextMaker 2.01’ besitzt eine in- 
tegrierte Rechtschreibkontrolle, 
die Texte nach Fertigstellung 
oder mit der "Online" Funktion 
gleich beim Eingeben auf Fehler 
untersucht, sowie eine dBASE- 
kompatible Dateiverwaltung. 
Die enthaltenen Daten können 
vom Programm selbst oder ohne 
Konvertierung von dBASE III+ 
und dBASE IV übernommen 
werden. Dazu gehört noch eine 
frei gestaltbare Eingabemaske, 


"Menu Plus’ nennt sich ein uni- 
verselles Menüprogramm zur 
Festplatten-Verwaltung. Mit 
dem Programm lassen sich alle 
auf Festplatte befindlichen Pro- 
gramme in einer Menüstruktur 
zusammenfassen und per Ta- 
stendruck aufrufen. 

Außerdem können Unterver- 
zeichnisse direkt angewählt wer- 
den. Enthalten sind außerdem 
Hilfsfunktionen, wie Taschen- 
rechner, Kalender mit Termin- 


Löschen 


128 Felder mit bis zu 254 Zei- 
chen und eine Kapazität mit bis 
zu 2 Milliarden Datensätzen pro 
Datei. 

Ebenfalls zur Ausstattung gehö- 
ren Druckertreiber für eine 
Vielzahl von Druckern, darun- 
ter auch weniger verbreiteten 
Typen. Neu ist hier die Mög- 
lichkeit, Sonderfunktionen der 
Drucker zu nutzen, wie doppelt 
hohe Schrift, Outline, Shadow, 
Rasterung und diverse Farben. 


Erstmals besitzt "TextMaker’ 
die Fähigkeit, Grafiken in den 
Text einzubinden, und zwar 
wird das PCX- Format von PC- 
Paintbrush bearbeitet. Durch 
ein mitgeliefertes Snapshot-Pro- 
gramm lassen sich jedoch auch 
andere Grafiken bearbeiten. 
"TextMaker 2.01’ kann direkt bei 
der SoftMaker Software GmbH 
zu einem Preis von 248,— DM 
bezogen werden. Kunden, die 
sich registrieren lassen, haben 
einen Update-Service und be- 
kommen gratis ein englisches 
Wörterbuch auf Diskette. 

Info: SoftMaker Software 
GmbH Martin Kotulla 
Grabbestr, 9 

8500 Nürnberg 90 

Tel.: 0911 / 303333 


verwaltung und "ScreenSaver' 
zum Schutz des Monitors. 
"Menu Plus 2.0° läuft auf allen 
IBM- und kompatiblen Compu- 
tern ab MS-oder PC-DOS 2.0 
mit mindestens 384 kByte 
RAM. 

’Menu Plus 2.0’ kostet 99,— 
DM. 

Info: Computer-Corner 
Taubentränke 14 

5470 Andernach 

Tel.: 02632/43061-4 
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Verbindungsprobleme 
Vor etwa einem Jahr legte 
ich mir aus schulischen 
Gründen einen Amstrad- 
CPC 6128 zu. Obwohl es 
mein erster Computer war 
(und es auch noch ist), kam 
ich gut mit ihm aus und 
schrieb auch jede Menge 
Programme. Mit dem CPC 
erwarb ich auch noch ge- 
braucht einen großen Stapel 
PC-Amstrad-Zeitschriften. 
Vor kurzem nun legte ich mir 
einen Schneider-EuroPC zu, 
mit dem ich ebenfalls zufrie- 
den bin. Da ich meinen CPC 
behalten habe und immer 
noch mit ihm arbeite, möchte 
ich gerne meinen EuroPC 
mit dem CPC “zusammen- 
koppeln“. Doch da stehen 
mir zwei Probleme im Weg: 


1. Wie kann ich ein Kabel 
zwischen den beiden Com- 
putern verlegen (sie ste- 
hen nebeneinander auf ei- 
nem großen Tisch)? 
Woher bekomme ich 
DFÜ-Software für meinen 
CPC, die sich im Geld- 
beutel nicht so bemerkbar 
macht? 


Beim EuroPC habe ich be- 
züglich auf die Übertra- 
gungssoftware keine Beden- 
ken, da sie ja schon im MS- 
Works-Paket enthalten sind. 
Die Software zum Überragen 
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sollte nicht zu teuer sein. Ich 
möchte hauptsächlich nur 
Programme von einem Rech- 
ner auf den anderen bringen, 
um diese dann zu bearbeiten. 
Auch Kommunikationsmö- 
glichkeiten mit einem Part- 
ner, der an einem der Geräte 
sitzt, wäre nicht schlecht. 
Könnten Sie mir zu diesen 
zwei Punkten einige Tips 
geben? 
A. Lampel, 
Zweibrücken 


Übertragungen zwischen 
CPC und PC (also auch Eu- 
roPC) sind grundsätzlich 
ohne Probleme möglich, 
wenn der CPC über eine se- 
rielle Schnittstelle verfügt 
(als Zubehör zu erhalten) 
und Übertragungskabel vor- 
handen sind. Die Kabel wer- 
den an die beiden seriellen 


Schnittstellen angeschlos- 
sen. In Ihrem Falle müßte 
das Kabel über eine 


25-polige Buchse für das 
CPC-RS-232-Interface und 
eine 9-polige Buchse für den 
seriellen Ausgang des Eu- 
roPC verfügen. 

Als Übertragungs-Software 
stände Ihnen das Public-Do- 
main Programm KERMIT 
zur Verfügung, welches es in 
allen _Computerversionen 
(CPC, JOYCE, PC) gibt. 
Das Programm ist über den 


PD-Fachhandel zu beziehen, 
befand sich aber auch auf 
den Databoxen der PC Am- 
strad Heft 10/88. 


In Heft 7/89 erschien ein 
Grundlagen-Artikel zur Da- 
tenübertragung über die se- 
rielle Schnittstelle des PC 
mit Schaltplan für das Kabel 
und Übertragungsprogramm. 


(Red.) 


Probleme mit der CPC- 
Hardware 

Ich besitze einen Amstrad 
CPC 464 und möchte den 
Kassettenrecorder an mei- 
nen CPC 6128 anschließen. 
Am kleinen Stecker des Kas- 
settenrecorders vom CPC 
464 befinden sich mehrere 
farbige Drähte. Welchen von 
diesen muß ich wo an der 
Platine des 6128 anlöten? 


Außerdem habe ich noch den 
CTM 640 Farbmonitor für 
meinen 464 gekauft. Kann 
man von diesem Monitor ei- 
nen 12V DC Ausgang für die 
Floppy des 6128 erstellen? 
Können Sie mir vielleicht 
weiterhelfen? 


Patrick Schneider, 
Kleinbettingen 


Bei den Anschlüssen des 
Kassettenrecorders müssen 
wir leider passen, solch ein 
Umbau ist von uns noch 
nicht durchgeführt worden. 
Also, liebe Bastler, wer Er- 
fahrung mit dem Anschluß 
des CPC 464-Recorders hat, 
bitte melden, wir leiten die 
Zuschriften an Herrn 
Schneider weiter. 


Beim Farbmonitor läßt sich 
kein 12 Volt Abgriff herstel- 
len, dazu ist das Netzteil zu 
schwach dimensioniert. Ein- 
fache Abhilfe kann hier ein 
externes Netzteil bieten, es 
sollte für ca. 1,5 Ampere 
ausgelegt sein. Näheres über 
Netzteile dieser Art können 
Sie demnächst in der PC 
Amstrad lesen. Elektronik- 
Läden bieten meistens auch 
Fertig-Bausteine an. 


(Red.) 


Artworx 
und Seikosha GP 700 
Ich besitze einen Seikosha- 
GP-700-CPC-Drucker, auf 
dem ich leider keine Hardco- 
py mit Artworx herausbe- 
komme. Obwohl ich nicht ge- 
rade ein Anfänger im Be- 
reich der Programmierung 
bin, war es mir, außer daß 
ein Zeilenvorschub entstand, 
nicht möglich einen brauch- 
baren Ausdruck zu bekom- 
men. Leider ist dieses auch 
bei anderen Programmen 
der Fall, wobei ich erwähnen 
möchte, daß der Drucker bei 
Hardcopys und beim Selbst- 
test ausgezeichnet arbeitet. 
So kann es ja nur noch an 
den Steuersequenzen liegen, 
die mir scheinbar zu “hoch“ 
sind. Deshalb meine Bitte an 
Sie, wie kann ich diese Steu- 
ersequenzen anwenden, um 
endlich diesem Drucker auch 
einen brauchbaren Grafik- 
ausdruck zu entlocken, damit 
ich auch mit Ihren sehr guten 
Programmen (Picture Prin- 
ter und Copyshop) arbeiten 
kann? 

Alfons Thiemermann, 

Plettenberg 


Schon einmal hatten wir ei- 
nen Leserbrief veröffent- 
licht, dessen Schreiber hän- 
deringend um die Drucker- 
anpassung für seinen GP 700 
CPC bat. Leider hat sich bis 
jetzt keine Lösung eingefun- 
den, wir hoffen deshalb wei- 
terhin auf Ihre Mirhilfe. 


Universalkalender 

mit dem CPC 454 

Ich besitze den Amstrad CPC 
464 mit Datenrecorder, habe 
aber schon sei langem ein 
zusätzliches 3 Zoll Laufwerk 
DDI-I und einen Drucker 
NLOQ 401. Wenn ich das Pro- 
gramm Universalkalender 
lade, bekomme ich immer ein 
Syntax Error im Zeile 1470. 
Die Berichtigung aus PC 
Heft Nr. #88 auf Seite 6 
habe ich ı eingege- 
ben. Der Symiax Error ist 
trotz mehrerer Versuche und 
Änderungen in Zeile 1470 


auch mil 


CPC-ANWENDUNG 


ann >= n 0 
j EZB mu 2 
uU ; 


Volldampf in der 


> A 


Autor, Matthias Upholt 


m ——— ] 


Damit das Schreiben wieder Spaß macht 


Der Klassiker: 

ConText CPC - bis heute ungeschlagen in der Gruppe der Textverarbeitungen. 
Dieses Programm besticht vor allem durch seine leichte Anwendungsweise, die 
selbst unerfahranen Computerbesitzern den Umgang mit einer Textverarbeitung 
möglich macht, 

Corfext CPC - das heißt: 
Einfachste Bedienung durch logische Tastaturbelegung; alle Funktionen sind über 
die Control- und eine definierte Taste zu erreichen, 

Funktionen wie EINFÜGEN, FLIESSTEXT, BLOCKFORMATIERUNG und KOPIE- 
REN sind über Tastendruck aufrufbar und werden in einer Statuszeile angezeigt. 
Mehrspaltiges Schreiben und Textkopieren erleichtern Ihnen die Korrespondenz. 
25 KByte Textspelcher mit Insgesamt 5 DIN-A4-Seiten, damit Sie auch lange Briefe 
problemlos erstellen können. 

Voreingestellt für dio meisten CENTRONICS-Drucker, durch übersichtliche 
Tabellenprogrammierung anpaßbar an viele EPSON-kompatibie Drucker. 
Weiterschreiben während des Druckens, denn 'time is money‘. 

Darstellung von Sonderschriften wie VERGRÖSSERN und UNTERSTREICHEN, 
Anzeigen von anderen Schriftarten durch Steuerzeichen. 

Auf Diskette / Kassette gespeicherte Textbaustelne sind überall im Text plazierbar, 
Eingebauter Taschenrechner und Kalender, damit Sie den Überblick behalten. 
Dies sind nur einige der Möglichkeiten, die Confext Ihnen als Textverarbeitung 
bietet. 


Der benötigte Hardware-Aufwand ist gering. 
Sie brauchen nur einen CPC 464 / 664 oder 6128 und einen Drucker. Alles andere erklärt 
Ihnen die ausführliche deutsche Bedlenungsanleitung, die dem Programm beiliegt 


Und wo gibt's Corfext CPC ? 
Bel DMV zu bestellen als 


3*4Diskette 59,—- DM* 
Kassette 49,- DM* 


Das universelle Hardcopy-Programm 
für CPC 464/664/6128 
Autor: Matthias Uphofl 


Do 2 


Copyshop im Detail: 

— Hardcopy in 4 (!) Formaten: DIN As, DIN A5, 135x855 cm und 215x 
135 cm — superschnelle Hardcopy-Routine: DIN A4 In ca. 4 Minuten (DMP 
4000) — arbeitet In allen drei Modes - Anpaßmenü für JEDEN Epson- 
kompatiblen Drucker — läuft ebenfalls mit den Seikosha-Druckern GP-500 
OPC, GP-550 CPC und GP-1000 CPC - Anpassung an Drucker möglich, 
die mit 1280 Punkten pro Zeile arbeiten, z.B.CPA-80GS - Okimate ML 182 
— Anpassung kann beim Verlag angefordert werden - Anpassung auch 
für Drucker möglich, die die Bitbild-Bytes verkehrt herum drucken (das MSB 
unten statt oben), z.B. NEC P2-Pinwriter. - 32 Farbraster über Menü wähl- 
bar - Grafikeditor - komfortable Pulldown-Menüs - Schnelle Fill-Routine 
— beliebige Ausschnittvergrößerungen - Bildschirm invertieren - selbst- 
relozierende Hardcopy-Routinen für eigene Programme - neue Save- und 
Load-Routinen erkennen automatisch Mode und Farbwerte - Freezer — 
saved auf Tastendruck Screenshots aus laufenden BASIC-Programmen, 
die anschließend ausgedruckt werden können. 


Und die Weltneuheit: Hardcopy-Simulation auf dem Bildschirm! 

Sie können sich Ihre Hardcopy vor dem endgültigen Ausdruck auf dem Bildschirm ansehen! 
Kassette 

3“-Diskette 


Dateiverwaltung 
Brauchen Sie ein neues Adreßbuch oder Telefonverzeichnis? 
Müssen Sie Ihre Sammlungen von Briefmarken, Schallplatten, 
Dias oder anderen Schätzen sortieren? Alles kein Problem, wenn 


Sie für Ihren CPC eine universelle Dateiverwaltung haben, und die 
gibt's jetzt beim DMV: 


Turbo-DATA-CPC ist die universelle Dateiverwaltung 
für jede Gelegenheit, mit der Sie problemlos Über- 
blick und Ordnung in alle Ihre Daten bringen kön- 
nen. Dabei helfen Ihnen die vielfältigen Funktionen 


i von Turbo-DATA-CPC: 


- Universell durch veränderbare Ein- und Ausgabemasken 
- Blitzschnelle Suchfunktionen durch Indexfelder 

— Dateikapazität bis maximal 80 verschiedene Felder 

- Bis zu 19 Felder gleichzeitig auf dem Bildschirm sichtbar 
— Besonders schnelle und umfangreiche Sortierfunktion 

— Eigene Formatierroutine mit extrem hoher Kapazität 

- Zweiteilung des Bildschirms in Status- und Arbeitsfeld 

— Deutscher Zeichensatz und deutsche Tastaturbelegung 
- Komplette Druckroutinen, auch für Etikettendruck 


Hardwarevoraussetzung: CPC 464/664/6128 
mit einem Diskettenlaufwerk 


Ganz gleich, was Sie zu archivieren haben, Turbo-DATA-CPC Ist 
in Jedem Fall die richtige Wahl, 


> 5; 


für CPC EEE nur auf zu Diskette 
Original CPC-Software im Paket 
zu stark herabgesetzten Preisen 


DISKSORT-STAR 

Leistungsstarke Diskettenverwaltung, die keinem CPC- 
Benutzer fehlen sollte. DISKSORT-STAR verwaltet, archiviert, 
katalogisiert, druckt, ... Ihre Diskettensammlung auf einfachste 
Weise. Neben der reinen Diskettenverwaltung ist unter ande- 
rem noch ein kompletter Diskettenmanager enthalten. Auch in 
puncto Bedienungskomtfort ist DISKSORT-STAR kaum zu 


schlagen. 
STAR-MON 


Das Entwicklungssystem für Profis 
© Assembler @ Editor @ Disassembler 
® Monitor @ vier Breakpoints @ Trace- 
Funktion @ Bankswitch © Memory 
Dump ® Diskettenmonitor ® u,v.m. 
CREATOR-STAR 
Ein Trickfilmdesigner für alle Hobby- 
regisseure auf dem CPC! 
© Sprite-Designer @ Laufschrift e Utili- 
ties © Kulissendesigner © Sprites mit 4 
Unterpositionen @ Verbinden von Sprites 
© Kulissen auch übereinandergelegt @ 
E| * Eigene Programmiersprache mit Editor 
WII II, und Compiler 
DESIGNER-STAR 
Grafikprogramm, mit dem man Bildschirmgrafiken komfortabel 
erstellen kann. Hilfsmenü auf Tastendruck - kein Joystick oder 
Maus notwendig. 


J 


* Unabhängig von der Anzahl der.besteliten Programme berechnen wir für das Inland 4,— DM bzw. für das Ausland 6,— DM Porto und Verpackung 
Bitte benutzen Sie die Bestellkarte. 


DMV-Verlag - Postfach 250 - 3440 Eschwege 
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geblieben. Ich hoffe Sie kön- 
nen mir eine Lösung geben. 

Mathias Tegge, 

Hannover 


Das Problem liegt nicht etwa 
an Ihrem Programm sondern 
an dem Rechner. Da Sie kei- 
nen 664 oder 6128 besitzen, 
müssen Sie den Universalka- 
lender mit dem Emulator- 
programm, welches sich ab 
Heft 6/89 auf jeder Databox 
und in jedem Sonderheft be- 
findet, starten. 

(Red.) 


Remex Floppy als Drive 
B: am CPC 

Ich hatte die Gelegenheit, 
eine Remex Floppy RFD 480 
von der Firma Bühler für ei- 
nen Bekannten anzuschlie- 
ßen. Das Laufwerk verfügt 
über einen standardmäßigen 
Shugart-Bus. Es sind zwei 
Jumper-Felder vorhanden. 
Das erste für die Einstellung 
des Driveselect: 
Bezeichnungen DS3, DS2, 
DS1, DS0, RDY 

Notwendig ist DS] für die 
Einstellung als Laufwerk B. 
Das zweite Jumperfeld hat 
die Bezeichnungen: A, B, C, 
D, hier muß der Jumper auf 
A stehen ! Mit diesen Einstel- 
lungen läuft das Laufwerk 
ohne Probleme. Peter Fahr- 
meier Augsburg 


Vielen Dank auch Ihnen für 
die Hilfe zum Thema RE- 
MEX-Floppy. 

(Red.) 


Joyce Programmsamm- 
lung Vol.5 - Sedabas 
Beim Erstellen von Listen 
mittels Joyce Vol.5 kann es 
bei der Summenbildung nu- 
merischer Spalten zu vergrö- 
ßerten Werten kommen, 
wenn die Datensortierung 
großer Datenbestände aus 
speichertechnischen Grün- 
den gesplittet erfolgt. Je- 
weils der Wert des Startsat- 
zes ab der zweiten Splittung 
wird dann doppelt summiert. 
Dieser Fehler ist jedoch 
leicht zu beheben: 
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— Rechner mit der CP/M- 
Systemdiskette starten; 
Eingabe A>BASIC 
<RETURN>., 

— Arbeits-Programmdisket- 
te JOYCE VOL 5 anstelle 
der Systemdiskette in 
Laufwerk A: einlegen, 
dann 

— Eingabe: LOAD“AUS- 
WAHL <RETURN> 
und schließlich 

— Eingabe: EDIT 
<RETURN> 

— Zeile 461 ergänzen: 461 
IF SUMKENN=0 OR 


461 


1>SOTM THEN 470 
<RETURN> 
— Eingabe: SAVE“AUS- 


WAHL <RETURN> 


Nun ist der Fehler behoben 
und auch bei großen Daten- 
beständen kann nichts pas- 
sieren. 

Des weiteren können Sie fol- 
gende Änderung vorneh- 


men, welche nur einen 

“Schönheitsfehler*  besei- 

tigt: 

— BASIC laden 

— Joyce Volume 5 Arbeits- 
diskette einlegen und 
LOAD“SORTIERG 


<RETURN> eingeben. 

— In den Zeilen 1040, 1050, 
1190 und 1200 sollte ... 
PRINT SOZZ ... jeweils 
durch ... PRINT SOZZ-2 
... ergänzt werden 

— Mit SAVE“SORTIERG 
<RETURN> speichern 
Sie das Programm nun 


wieder ab. 
(Red.) 


LOGO-Programme 

Die Veröffentlichung des Li- 
stings “UHR.LOG“ auf Seite 
65 in der PC-Amstrad 7/89 
zeigt, daß nach wie vor Inter- 
esse an der Programmier- 
sprache LOGO besteht. 
Jeder Leser wird für sich ent- 
scheiden, wie er seinen Com- 
puter einsetzt; wenn eine Uhr 
gewünscht wird, kann selbst- 
verständlich auch von LOGO 
aus auf die Interne Uhr des 
Joyce zugegriffen werden. 
Die nötigen Adressen dazu 
finden sich zum Beispiel in 
PC 4/87 S.78 oder Joyce 
Sonderheft 1 Seite 33. 


Der in der Uhr verwendete 
Code wird durch folgende 
Routine in eine Dezimalzahl 
umgewandelt: 

to dez :bed 

op 10 * (quotient :bed 16) 

+ remainder :bed 16 

end 

Stunde Minute und Sekunde 
können mit den folgenden 
Routinen abgefragt werden: 
toh 

op dez .examine 64502 

end 

tom 

op dez .examine 64503 

end 

tos 

op dez .examine 64504 

end 

Um die Uhr von Logo aus 
stellen zu können, müssen 
Dezimalzahlen codiert werden: 
to bed :dez op 16 # (quotient 
:dez 10) + remainder :dez 10 
end 


Das Stellen der Uhr kann 

dann mit folgenden Routinen 

geschehen: 

to hset :stunde 

‚deposit 64502 bed: stunde 

end 

to mset :minute 

. deposit 64503 bed :miute 

end 

Es erscheint sinnvoll, die 

Uhr nur zur vollen Minute zu 

stellen: 

to sset 

.deposit 64504 0 

end 

Diese Routinen lassen sich 

selbstverständlich auch zu- 

sammenbinden: 

to timeset :stunde :minute 

sset mset :minute hset :stunde 

end 

to time 

op (seht: m: s) 

end 

Mit diesen Bausteinen lassen 

sich jenach Geschmack viele 

Zeitfunktionen zusammen- 

stellen. Wer mag, kann auch 

eine Analoguhr schreiben. 
Karl Heinrich Waßmuth, 

Hambrücken 


Schneller schreiben mit 
LocoScript 

Der Beitrag “Schneller 
schreiben mit LocoSeript“ 
von Herrn Etzold mit dem 
Untertitel “Wie man die Me- 
nüsteuerung überlistet“ reizt 
mich zur Erwiderung ä la 
“Warum einfach, wenn es 


auch umständlich geht?“ 
oder “Wie man sich selbst 
überlistet“. 


Herr Etzold bemerkt in sei- 
nem Beitrag, daß es ein Vor- 
teil von LocoScript sei, dem 
Anfänger die Textverarbei- 
tung mit Hilfe der ausführli- 
chen Pulldownmenüs zu er- 
leichtern. Hat er aber über- 
sehen, daß die Programmie- 
rer von LocoScript auch an 
die fortgeschrittenen Lo- 
coScripter gedacht haben? 


Wahrscheinlich schon, denn 
sonst wäre er sicherlich nicht 
auf die Idee gekommen, die 
SAETZE.STD-Datei mit so 
einfachen Textsteuercodes 
wie Hardspace, Softtrenn, 
Kursiv, Fett zu belasten. 
Diese einfachen — und auch 
kompliziertere Ketten — sol- 
cher Codes — sind doch 
schnell und sicher mit den 
speziell in der PCW-Tastatur 
enthaltenen Tasten [+] und 
[-] sowie den zugehörigen 
sinnvollen Buchstabentasten 
zu erreichen. 


Mir erscheint also der Vor- 
schlag von Herrn Erzold, die 
Datei SAETZE.STD für Steu- 
ercodes zu bemühen, erst bei 
aufwendigeren Kombinatio- 
nen sinnvoll, bei einfachen 
Codes aber unsinnig. 


Hansjürgen Warnecke, 
Konstanz 


Selbstverständlich ist die Be- 
legung der Beispieldatei 
SAETZE.STD sehr primitiv 
gewählt. Der Artikel war 
auch nur dazu gedacht, Ihnen 
Anregungen zu geben, was 
Sie mit der Datei SAET- 
ZE.STD alles machen kön- 
nen. Daß wir hier keine 
komplizierten Belegungen 
gewählt haben, versteht sich 
von selbst. 


(Red.) 


Farbbandauffrischung 

Das in der Ausgabe 7/89 in 
der Rubrik Leserbriefe ver- 
öffentlichte Programm zur 
Farbbandauffrischung wur- 
de durch einen technischen 
Fehler leider falsch abge- 
druckt. Diesen Fehler bitten 
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: FD4 499,-- 
i für CPC 664, 6128 
nei Kabel 89,-- 
Abdeckhauben CPC 
»Korsoa CPC je 19,80 
- Monitore ke 34,50 
» DMP-Druckar je 24,80 
+ Frooy'’s ie 19,80 
O 39,80 
49,80 


136,-- | 


STAR-WRITER | 98,--| 
DATEI-STAR 98,--| 


| eiitielerichuut | 


Supercopy 65, | 


Mastercopy 69,- | 


124,-- CPC-Adventures: Uhrenmodul 


Diamant von Rabenfels (g) | 
Drachenland (t) 

Reise durch die Zei {t) 
Sherlock Holmes (g) 

Auftrag in der Bronx (g) 

Insel der Smaragde (t) | 
Das Pharaonengrab (t) 

(t “text; g = Grafik; alle in 
deutsch) 


| je Diskatto 49,- 


Text + Datonbank » Grafik» | 
Etikettendruck « Tabellen- 
kalkulation » engl. Handb. » 
Komplett für nur 98,-- 


lelilzieh 
ROMBOX {CPC) 118,- 
VIDI(CPC) 348,-- 
VIDI (Joyce) 378,-- 
VIDI (IBM-KOMP.) 448,-- 


Headline 
RH-DAT (Datenb.) 98,- 


für 464/664: 
Speech Synth. (ROM) 148,— 
Spesch Synth. (Kas.) 98,- 
Lightpen (Kas.) 63,— 
64 k Erweiterung 168,— 
256 k Erweiterung 348,— 
256 kSilcon Disk 378,- 
128,- 

für 6128: 
256 k Erweiterung" 
256 k Silicon Disk’ 
64 k Silioon Disk* 
Spesch Syn. (ROM) 
Lightpen (ROM)" 
Uhrenmodul" 119,— 
Adapter (+) 39,— 


AMX-Mouse CPC | 


Steuerung Ihres CPC über 
dan Bildschirm - mit hervor- 


348,- 
378,- 
168,— 
148,— 

9,- 


68,- | Mini Officoll | ragendem Grafikprogramm 


* org. engl. Handbuch » 
nur 278,— 
„„Handbuch deutsch 
29,80 


| 
AMX-Maus + | 
Grafikprogramm + Handbuch 
‚„„.Restaufkauf aus Konkurs- | 
masse || 

CPC 178,- Joyce 198,- 


Alles für. Ihren JOVC 


Alles für Ih 


CPC 





SCHLICEH de 


Seitengestalter 
... benötigt 64k Zusatzspei- 
cher bei 464 und 664 (nur 
ok'tronicsil) » mit orginal engl. 
Handbuch 
Stop Press 198,-- 
St,Pr.+ AMX Maus 348,-- 
«Handbuch deutsch 


19.80 


SEACEERUNNTER 


Extra | 
Jede Menge neue Fontsl 
129,-- 


EB 


Marconi-Trackerball jetzt auch 
für den CPCI Mit dem 
hervorragenden Gratikpro- 
gramm EASI-ART von Micro- 
draw. 

komplett für nur 298,-- 


.„.komplan mit StopPress 
Paketpreis 448,-- 


| 


Ähnlich AMX-Mouse für CPC. 


MA Gratiksoftware! 179,-- 





Turbo Pascal 225,- 
Turbo Toolbox 10 148,-- 
DR-Graph 198,-- 
DR-Draw 198,-- 
Prompt (Dateiprg.) 69,-- 
Prompt Druck 39,-- 
Mercator PCW 477, 
MICA (CAD) 198,-- 
Vokabeltrainer 59,- 
Verbentrainer 49,-- 
Turbo Adress 98,-- 
Turbo Faktura 148,-- 
ComacLitbox 148,- 
COMAC Kasse Ps168,-- 
Vereinsverwalt. 198,-- 
Schreiblehrgang 89,-- 
PSE2 129,-- | 
Fleetstr. Edit, 199,-- | 
WS-Tuner 49,80 
varDat 199,- 
Prospall Engl. 50,- 
FISKUS 1987-1988(89) 
Lohnsteuer-Jahrosausgl. 
fürnur 139,- 


Kopierprogramm: 


Supercopy 85, 








BU NEEHEN | 

von AMSTRAD 
Joyce RS232 198,-- 
CPC RS232 org, 198,-- 
148,- 


ELLE MERT) 


... Joyce 29,80 
... PC 1512 29,80 
... PC 1640 29,80 
.„.. Monitor PC 19,80 


I 
Farbbänder 


NLO 401 19,80 
Star NL/LC1O 24,80 
DMP-Drucker 19,80 
LO3500-Drucker 29,80 
| Joyce-Drucker 24,80 
PCW9512-Dr. 19,80 


Competit. Pro 39,80 


... Qurchsichtig 49,80 
| Quickshot Il 19,80 


DruckerkabsiCPC 39,- 
Montorverlängerung 29,50 





STATISTIK-STAR 
Gralik- und Statistikorgamm 
nur 98,-- 
STAR-MAIL 
Erweiterung von LocoScripti 
Ausdruck auf Framddruckern | 
Serienbrieferstellung ... 
nur 98,— 
DATEI-STAR 
Datelverwaltungssystem 
nur 98,- 
MAILING-SYSTEM 
Softwarepaket: STAR-MAIL 
+ DATEI-STAR 189,-- 
STAR-BASE 
Datenbanksystem 198,-- 
BUSINESS-STAR 
Auftragsbearbotung mi: 
Fakturierung / Lager/ Mahn- 
wesen / Datenvorwaltung ... 
298,-- 
FIBU-STAR pıus 
Finanzbuchhaltung 298,-- 
LOCO-MERGE 
Serienbrieferstellung 98,-- 


rer 


Mouse Pad (Gleitmatte) 19,80 
Bildschirmliker 59 
200 Endlosatikettion 16,- 
3"-Disketten (100 Pack) 


«„, MAXELL CF2 1D 
„„Noname ID 

„ CF2 DD 
„Panasonic CF2 


Public Domain 


CPC + Joyce 
Über 1000 PD-Prg. auf 3° 
Jede Diskette 
PD-Disk. 1-19 mit disch. 
Handb. (Kotulla): 
JAT-Pascal (1) » Z80-Entw. 
(2)* SmallC (4) + Forth-83 
(5) + CPC-Arbeitsb, (7) * 
Cave Adventure (8) - Biz- 
Basic (10) + Basic E- Comp. 


89, 


| (11) Dateiverwaltung (14) = } 


WordStar Utilties (15) + C- 
Interpreter (17) + Telekom- 
munikation MEX (19) + 
Jede Diskette 


MS-DOS 


Über 3000 Disketten! Aus- 
führliche Liste schriftlich an- ! 
tordern. Liste DM 9,80 


30,- : 


Jede Diskette 8,-; 


\ komplett für nur 
\ „deutscher Zeichensatz 


| St,Pr.+ AMX Maus 


20,- |; 


178,- 


Professional 
Textverarbeitung + DFÜ + 
Datenbank « Tabellenkalku- 
lation » Geschäftsgralik » 
138,-- 


auf 3°.Diskette 29,80 


AMX-Maus Joyce** 


Steuerung Ihres Joyce über 
den Bikdschirm. Mit hervor- 
tagender Grafiksoftware « mit 
engl. Handb nur 298,-- 
Adapter 39, 
SEHLIET 
Seitengestalter 
Sensationelies DTP-Progr. 
für den Joyce +» engl. Handb. 
StopPress 198,- 
398,-- 
Neu Il! Mini DOS 
Formatieren, Lesen und 
Schreiben von MS-DOS-Disk. 
auf dem Joyce nur 50,— 


ERELEEZZE ERFALFRRTER 
Alle AMSTRAD-Typen 


Auszug davon: 

CPC 464 grün 
CPC 6128 grün 
Joyce (8256) 
PCW 9512 
PC 1512 MD/SD 
PC 1640 MD/SD 
Ponable-PC 512 
PC 2086 soızmo 2,499... 
PC 2286 ooı md 3.899... 

AMSTRAD-Drucker: 
LO 3500 nur 799,- 


LQ 5000 1.299,-- 
DMP 2160 499,— 


399,- 
739,- 
999,- 
1.699,-- 
1.299,-- 
1,799, 
1.699,-- 


Karl-Heinz Waeske - Potsdamer Ring | 0. 7150 
. Telex 724410 weeba d + Kreissparkasse Backnang - BLZ 
! (60250020)74397 » Postgiro Stat. 83326-707 + F 


| « StopPress 


(Kopierprogramm) 
Vollständige Kopiereinrich- 
tung für Kassetten und Disk. 
Neue Version 178,— 
Adapter für 6128 


Für DMP Zxxwiäxx Drucker, 
Mr deutscher Anleitung | 
komplett für nur 249,- 
Adapter CPC 6128 39,- 


BTX-Modul 


Jetzt auch für CPC’sI Erlaubt 
den Anschluß Ihres CPC’'s an 
den BTX-Rechner der 
Bundes- Post I 398,-- 


DEINER I 


CPC 4841664 je 29,80 
CPC 6128 29,80 
CTM 644 19,80 
CTM 640 19,80 
| GTEu65 je 19,80 


Handbücher deutsch 


* Mini Office Il 29,80 
| « AMX.Mouse 29,80 
19,80 


39,- | 


Dart - Scanner CPC | 


ı cn 


« dk'tronics Erw. 19,80 | 
» Protext 19,80 | 


Datenfernübertragung 
Dataphon 21 S 

Dataphon 21-238 
Anschlußkabel 
Treibersoftware 


Neu von AMSTRAD: | 
MP2 (Ansch. TVı 129, | 
MP3 (rv-Mosutato) 199, | 
(Radio-Uhr) 89,- | 


| 
dBase Il | 
Multiplan 


Vokabeltrainer: 

» Kassette 

» 3".Diskette 

Verbentrainer: 

« Kassette 

» 3”-Diskette | 
SITE 

* Sorcary + 

* Fipper/KniteV/Reversi(3>1) 

* 3D Stunv3D Grand Priv3D 
Boxkamp! (3 in einem) 

* Roland in Höhlen/in der 
ZeitHunchback.., (4 in 1) 

* Tenns 


ke Diskette nur 25,- } 


| een A 


REIZE TERSENFIE 
[Yarain makor WERE 


IdealoPapiertührung für Ihren 


- n || Joyos-Drucker, 
STAR-DIVISION: | Joyce - Mouse Pack nur 29,90 


| „„.benötigt RS232 


| Joyce-Scannor* 
MasterScan & Paint 

| Scanner einfach auf 
Druckerkop! stecken und los 
geht'si 
MasterScan 298,-- 
MasterPaint 78,-- 
Paketpreis nur 338, 
Adapter 39, 


| Desktop Publisher** 


Professionelles Desktop- 
Publishing auf Ihrem Joyos 


118,- 


... kompl. mit AMX-Maus 
348,-- 


dk’tronics Joyco** 


Joystick-Controlier* 69,- 
Contr.+Sound* 129,- 
\ Echtzeituhrenmodul- 129,- 
| 256 k Erweiterung 248,— 
| Adapter (*) 39,— 


Joyce-Spiele: 
Bridge Player 59,-— 
Clock Chess 89 69,— 


aEIGINTEIgS 


(en, 


DMP 3160 
DMP 4000 


599,- 
849,- 


Colossus Chess 
F.B. Boxing 
Football Fon. 
Jewois Darknoss 


| Knight Orc 





The Pawn 
Strike Force H. 
Tomahawk 
Anals of Rome 
Corruption 
Time and Magic 
Cyrus Il Chess 
Stevo Davis Snooker 
Corruption 79,- | 
Triviat Pursuit (engl.) 69,- | 
Starglider 89,- 
i. ** Aufgepasst" | | 
3. A6 engl, Produkte 
E werden mit arginaleng). 
; Handbuch ausgoliöfen! | 
| Für 29,80 (*) bzw. 19,80 
}.("}erhaktan Sie zusätz.. 
Beh die jewailige.disch... | 
| 
i.. Joyce-Katalog : 
:.Det Joyce ist noch 
} Hingst nicht tat! Wenn 
:. Sie näheres Liber unsere ; 
; Joyom-Produkts arfahren | | 
won, sobosieiun Sie | | 
i. Sich doch einfach una6- 


69,- 





i sen Joyoo-Kalalog dm | | 


au 


ee 
Alle Schnelder-Typen | 
Die absoluten Renner: | 


Euro PC: | 


.. MM12 1.298,-- | 


Tower AT: 
201 MM 12 2.498,-- 


CPC-Spiele zumsagenhal- |: 
ten Sonderpreis von: 


jede Kassette nur 20,- |' 
jede Diskette nur 30,— | 


Liste anfordern !! 


Backnang 


SBeH: 
Versandkostenpauschale (Inland 7,80 DM /Ausland 19,80 DM): 
Infoanlorderung nur mit frankierten A4-Rückumschlag und DM 2. 


07191/1528 


29 od. 60076 








Ti A 


wir zu entschuldigen. Anbei 
nun das lauffähige Pro- 
gramm. 

(Red.) 


10 REM Programm Farbbadauffri- 
schung 

20 MODE 2:CLS:INPUT*Auffri- 
schungszeit in Minuten *;fzeit 
30 azeit=TIME:ezeit=fzeit* 
18000+azeit 

AO WIDTH 255: PRINT#8,CHRS 
(27)+PAU+CHRS(0) ; 

50 WHILE TIME<ezeit 

60 PRINT#8,CHRS(27)+"K"+ 
CHR$(127)+CHRS$(2) ; 

70 FOR n=1 to 639: PRINT#B, 
CHRS(0) ;:NEXTn 

80 WEND:PRINT#8,CHR$(27)+ 
“Bus :CALLO 


Assembler für CPC 
Ich bin seit drei Jahren Besit- 
zer eines CPC 6128 und lese 
seit dieser Zeit auch Ihre 
Zeitschrift. Nun möchte ich 
mich mit einer Frage an Sie 
wenden, welche Sie sicher- 
lich leicht beantworten 
können: 
Seit einiger Zeit arbeite ich 
mit dem CPC-Assembler, 
den ich aus Ihrer Zeitschrift 
abgetippt habe. Aber bei um- 
Jangreicheren Programmen 
stößt man leider sehr schnell 
an seine Grenzen. Daher su- 
che ich einen professionellen 
Assembler. Welchen würden 
Sie mir empfehlen? 
Alexander Egyed, 
Frankenmarkt 


Für Ihre Zwecke sollte sich 
der Maxam vom Arnor eig- 
nen. Dies ist ein Programm- 
paket, welches einen Disas- 
sembler, einen Assembler 
sowie Editor und andere 
nützliche Hilfsprogramme 
integriert. 

(Red.) 


CP/M-Schalter 

am CPC 464 

Der Einbau des CP/M- 
Schalters ist auch beim CPC 
464 möglich. Die entspre- 
chende Brücke finden Sie im 
Controller. Sie ist hier mit 
LK 1 bezeichnet. Allerdings 
ist die RAM-Disc der Firma 
Dobbertin über den CP/M- 
Befehl AMSDOS unter Basic 
nicht mehr ansprechbar. Un- 


12 PE 9'89 


ter CP/M jedoch ist diese 


voll einsatzfähig. 
Michael Vogl, 
Grevenbroich 
CAD-Serie 


Ich habe Ihre CAD-Einfüh- 
rung abgetippt. Einfach toll, 
was man damit alles machen 
kann. Leider fehlt mir zu die- 
sem Programm die Speicher- 
und Lade- sowie eine Hard- 
copyroutine, 
Haben Sie oder irgendein 
Leser sich schon einmal wei- 
ter mit diesem Progranım be- 
schäftigt und diese oder an- 
dere Erweiterungen in das 
Programm eingebracht? 
Peter Kirsch, 
Gevenich 


Leider haben wir diese Er- 
weiterungen für das CAD- 
Programm noch nicht reali- 
siert. Aus diesem Grunde 
möchten wir diese Frage an 
unsere Leser weitergeben 
und hoffen diesbezüglich auf 
Zuschriften. 

(Red.) 


Speichererweiterung und 
Star Writer 


Vor zwei Monaten kaufte ich 
mir eine 256 kByte Speicher- 
erweiterung der Firma Dob- 
bertin Elektronik. Nun habe 
ich noch das Programm 
StarWriter I, welches in Ver- 
bindung mit dem vergrößer- 
ten CP/M 2.2 nicht läuft. 
Meines Wissens läuft das 
Programm jedoch mit der 
Speichererweiterung der Fir- 
ma Vortex vollständig. Kön- 
nen Sie mir eventuell die 
Adressen im Programm mit- 
teilen, welche ich verändern 
muß, damit das Programm 
auch mit meiner Speicherer- 

weiterung läuft? 
Markus Reuter, 
Sigmaringen 


Leider können wir Ihnen die- 
se Adressen nicht nennen, da 
uns diesbezüglich keine ge- 
naueren Unterlagen vorlie- 
gen. Aber vielleicht hat sich 
schon einer unserer Leser 
mit dieser Problematik be- 


faßt und kann Ihnen hierbei 
weiterhelfen. (Red.) 


’Sprechi’ 
— das Sorgenkind 
Mit unserem Sprachsynthe- 
sizer aus Sonderheft 7/88 
hatten wir ja leider nicht so 
ein Glück, er sprach einfach 
nicht. Einige der Nachbau- 
freunde konnten uns wert- 
volle Tips zum "Sprechi’ ge- 
ben, die wir hier an dieser 
Stelle weitergeben wollen: 
Der erste Brief ist von Elmar 
Leinen, der Fehler im Li- 
sting festgestellt hat: 
Viele Leser haben das Pro- 
gramm SPRECHI.BAS aus 
dem Sonderheft 7 abgetippt. 
Leider mußten Sie feststel- 
len, daß das erzeugte File 
SPRECHI.RSX nicht lief. 
Der Fehler befindet sich in 
Zeile 1500, der Block (Teil2) 
ist um vier Bytes verschoben. 
Die Zeile 1500 muß daher 
lauten: 
1500 DATA 35068,515 
Weiter Fehler in SPRE- 
CHI.BAS: 
Zeile 80 richtig z=350 
falsch z=102 
Zeile 90,190,220 
richtig z=2+10 
falsch z=2+2 

Elmar Leinen 


zu@R PIO 


SN74L532 


Pull-up 
Hiderstand 


Abb. 1 





An dieser Stelle ein Danke- 
schön an Herrn Leinen für 
die Korrektur. 


Gregor Hilgner schickte uns 
eine Zeichnung ein (Abb.1), 
die Änderungen am Sprechi 
anzeigt. Dazu schreibt er fol- 
gendes: 


Ich habe den Sprachsynthesi- 

zer auf einer Lochrasterpla- 

tine aufgebaut. Nach dem 

Aufbau mußte ich feststellen, 

daß der Schaltplan von Son- 

derheft 7/89, Seite 125, zwei 

Fehler hat: 

1.) Adressierung ist falsch 

2.) Taktfrequenz ist zu groß 
— IC 4 liefert nach Tei- 
lung 2 MHz. 
Nach folgenden Ände- 
rungen ist der Sprach- 
synthesizer einwandfrei 
gelaufen: 

1.) Pin 6 (B/A) von der Z80A 
PIO—-> A0 

2.) Pin 23 (DIV2) vom SSI 
263A —> +5 Volı. 

Gregor Hilgner 


Auch hierzu unseren Dank. 


Haben Sie, liebe Leser, die 
Änderungen vorgenommen, 
und der Erfolg hat sich ein- 
gestellt, wären wir für eine 
kurze Mitteilung dankbar, 
damit wir bei weiteren An- 


Briefe 





Umschaltung der Laufwerke A: und B: beim CPC 
nn a ee a ren 


+ 5 Volt 


pPD 765 


ER 
Leiterbahn 
auftrennen 
(Garantieverlust!!) 


Umschaltung von Laufuerk A: als LU B: und B: als A: beim CPC 464 
mit Hilfe einer Phasenunkehrstufe an Eloppu“ Kontroller von DDI-I 


Zuerst die von Pin 29 abgehende Leiterba 


n auftrennen (auf Kerbe 


des IC’s achten!!), dann den Transistor und die beiden Hiderstän- 
de auf die Platine oder eine externe Lochrasterplatine löten. 
Miniaturschalter am oberen Gehäuserand befestigen. 


Vor jeder Umschaltung Floppy und Rechner 
ezeichneten Darstellung wäre nach den Einschalten das 
B: aktiv, Der Transistor sollte ein NPN- Universaltyp 


In der 
Laufner 


ausschalten !! 


sein, zum Beispiel der BC 187 B, Der Schalter ist ein einpoliger 


Einbau- Umschalter, 





Abb. 2 


fragen die Lösungen guten 
Gewissens weitergeben 
können. 
Weitere Berichtigungen sind 
folgende Punkte: 
AO — > Pin 18 (nicht 16) 
Al -> Pin 17 
A15 —> Pin3 
Pin 1 (IC2) —> AI0 (Pin 8) 
Pin2 (IC2) —> A3 (Pin 15) 
Wir möchten auch allen an- 
deren Leserbrief-Schreibern 
danken, die uns freundli- 
cherweise den einen oder an- 
deren Tip und Rat zukom- 
menließen und hoffen, damit 
dem Thema ’Sprechi’ etwas 
auf die Beine geholfen zu 
haben. 

(Red.) 


A: als B: und B: als A: 


Unser Leser Günter Stich 
aus March-Buchheim hat uns 
eine Zeichnung einge- 
schickt, auf der eine kleine 
Bastelei abgebildet ist, die 
das Erst- und Zweitlaufwerk 
am CPC vertauscht. 

(Red.) 


Funktionsplotter geht 
nicht! 


In Sonderheft 6/88 fand ich 
seinerzeit sehr viele interes- 
sante Programme, so daß ich 
mich schnell entschloß, mir 
die von Ihnen angebotenen 


DATABOXEN schicken zu 
lassen. Kaum war das Päck- 
chen mit den Disketten im 
Briefkasten, machte ich mich 
an meinen Computer, einen 
CPC 664 und probierte eine 
Vielzahl der Programme 
aus, unter anderem auch das 
Funktions-Zeichnungspro- 
gramm PLOT IT! Da sich die 
Funktionen mit dem Funk- 
tionsplotter auf meinem 
Computer nicht darstellen 
ließen, nahm ich einen Ein- 
gabefehler. meinerseits an 
und das Programm wanderte 
in die Schublade. 


Vor einigen Tagen erstand 
ein Freund einen CPC 6128, 
und mir kam sofort der Funk- 
tionsplotter in den Sinn. Bei 
der ersten Vorführung seines 
neuen Computers hatte ich 
das Programm dabei und 
versuchte nun auf dem CPC 
6128 mein Glück. Lange 
Rede — kurzer Sinn, das 
Programm lief ohne jede 
weitere Beanstandung. Ich 
nehme an, daß der Binär- 
code-Teil von Zeile 500 bis 
790 geändert werden muß, 
um das Programm auf einem 
CPC 664 lauffähig zu ma- 
chen. Können Sie mir weiter- 
helfen? 


Thomas Kopka 
Dortmund 


Ja, ja, die CPCs und die 
Kompatibilität. Leider war 
der CPC 664 der einzige der 
drei, den der Funktionsplot- 
ter völlig kalt ließ. Woran es 
genau liegt, ist uns auch 
nicht bekannt, selbst nach 
der langen Zeit war eine An- 
derung nicht möglich. Als 
einzigen Trost können wir 
allen CPC 664-Benutzern 
nur unser zweites Funktions- 


plot-Programm aus Heft 
3'89 anbieten. 

(Red.) 
Überspiel-Probleme 


Ich besitze im Moment den 
CPC 464 mit Kassettenlauf- 
werk und möchte auf den 
CPC 6128 mit Diskettenlauf- 
werk umsteigen. Meine Pro- 
gramme, die ich selbst auf 
dem CPC 464 geschrieben 
habe, wollte ich nach dem 
Handbuch des CPC 6128 
überspielen, was aber leider 
nicht funktioniert hat. Wer 
kann mir die Kassetten auf 
3“-Diskette überspielen? 
Kann man auch Kassetten 
auf den PC 1512 über- 
spielen? 
Bernhard Nähr 
Wiesloch 


Das Überspielen von Kasset- 
tenprogrammen auf den 
CPC 6128 geht am einfach- 
sten, wenn man einen Kas- 
settenrecorder an diesen an- 
schließt. Dazu kann man ei- 
nen der handelsüblichen Re- 
corder nehmen, die meistens 
schon ab 40,— DM zu be- 
kommen sind. Kassetten- 
Software aufden PC 1512 zu 
überspielen ist nur über den 
Umweg mit der 5,25"- 
Zweitfloppy am CPC mach- 
bar oder durch den Anschluß 
einer RS232-Schnittstelle am 
CPC. Dazu sind Programme 
des CPC nicht ohne weiteres 
lauffähig und müssen an die 
BASIC-Version des PC an- 
gepaßt werden. Problemlos 
geht das Übertragen mit 
ASCII-Dateien, die mittels 
Übertragungsprogramm über- 
spielt werden. Eine weiter 
Möglichkeit wäre das Uplink- 
Modul, welches an die 
Druckerports angeschlossen 
wird (ein ausführlicher Test- 
bericht steht in Heft 10/89). 
(Red.) 


AMSTRAD - Computer 
Software + Zubehör 


AMSTRAD-Computer auf Anfrage 


JOYCE-Zubehör: 

Farbband 8256/8512 12,90 
Papierführung 29,50 
3*-Markendisketten 10 St. 59,90 
Farbband 9512 17,95 
Typenräder 9512 25,00 
Typenräder SD15 25,00 
Diskettenbox f. 12 Disk. 9,95 
Diskettenbox f. 40 Disk. 14,95 
Diskettenbox f. 80 Disk. 18,95 


PC-Zubehör: 
5 1/4*-Disketten 2D 10 Stück 6,95 
3 1/2*-Disketten 2DD 10 Stück 25,00 


20-MB-Filecard 698,00 
Druckerkabel par. 1,8 m 17,70 
STAR LC10 (deutsch) 570,00 
AMSTRAD LQ3500 780,00 
Druckerständer 29,95 
Farbband LC10 15,95 
Farbband NEC P 2200 16,95 


Abdeckhaube Tastatur 1512/1640 16,95 
Abdeckhaube Monitor 1512/1640 39,50 





Genius Dyna Mouse 135,00 
Laufwerk 3 1/2“ 220,00 
Joy-Stick 29,95 
Haftetiketten endlos 100 Stück 895 
TextMaker 2.0 248,00 
PC 1512 1 LW/Mono 1.170,00 
PC 1640 2 LW/Mono 1.798,00 
24-N.-Drucker LQO5000 1.150,00 
Weltere Preise auf Anfrage! 
Preisliste gegen Rückporto. 


Lieferung per Nachnahme oder Voraus- 
kasse (Vorsandkostenpauschale DM 11,40 


pro Paket). 
Kosmalla & Partner 
Datenverarbeitung GmbH 
Bliesstr. 5, 6700 Ludwigshafen 








Tel.: 06 21-51 9749 


Eine Bitte 
an unsere 
Abonnenten 


Vermerken Sie bei 
Schriftverkehr und 
Zahlungen neben der 
vollständigen 
Anschrift stets Ihre 
Abo-Nummer. 


Sie vermeiden damit 
unnötige Verzögerun- 
gen bei der 
Bearbeitung Ihres 
Abonnements. 


Vielen Dank 


Ihre DMV- 
Versandabteilung 





989 PE 13 


En nn 0 


Der Chip macht die Musik 


Computer und ihre musikalischen 


Fähigkeiten 


Computer rechnen nicht nur, sondern machen auch manchmal Musik. 
Oder sie versuchen es zumindest, denn was dabei stellenweise heraus- 
kommt, könnte Grund für Beethovens Taubheit gewesen sein... wenn es da- 
mals schon Computer gegeben hätte, Trotzdem ist es immer wieder erstaun- 
lich, wie ein solch hochtechnisches Gerät auch noch musikalisch sein kann. 
Wie der Klang zustande kommt und wie Computer diesbezüglich ausgestat- 
tet sind, sei im folgenden Bericht anhand der CPCs, PCWs und PCs gezeigt. 





Der nüchterne Anwender hat eine ge- 
wisse und wohlbegründete Abneigung 
gegen musikalische’ Kundgebungen 
seines Rechners. Diese beschränken 
sich meist auf ein kurzes energisches 
Piepsen, und dies meist, wenn der Be- 
diener in der Tabellenkalkulation oder 
Textverarbeitung gerade einen Fehler 
macht — und wer macht das schon ger- 
ne. Computerspieler dagegen schwö- 
ren mit beiden Händen auf Musik "aus 
der Kiste’. Für sie gehört der Sound- 
track, die Musik im Hintergrund, und 
das krachende Geräusch der Explosion 
des eigenen Raumschiffs, nachdem 
man wieder einmal anstatt die Laserka- 
none zu bedienen, dem bösen Alien ein 
freundliches Hallo zugerufen hat, ein- 
fach dazu. Doch woher kommt die 
Dröhnung, und warum können manche 
Computer mehr als andere? 

Für die Musik aus dem Computer sind 
im allgemeinen die sogenannten 
Sound- oder Synthesizerchips zustän- 
dig. Sie erzeugen und variieren auf 
elektronischem Wege Töne, die über 
einen Lautsprecher hörbar gemacht 
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werden. Die Qualität dieser Klänge 
hängt von der Komplexität dieser 
Schaltkreise ab, das Spektrum reicht 
vom einfachen einstimmigen Chip über 
den bei Homecomputern üblichen 
Standard von drei Stimmen mit mehr 
(Commodore 64) oder weniger (CPC) 
ausgeprägten Variationsmöglichkei- 
ten, bis zur im Nebenberuf rechnenden 
Disco namens Amiga. Andere Rech- 
ner, wie die PCWs oder PCs, sind, ih- 
rem gehobenen Selbstverständnis ent- 
sprechend, eher von schweigsamer Na- 
tur. Mit entsprechenden Erweiterun- 
gen kann man jedoch auch ihnen Töne 
entlocken, und das noch nicht einmal 
mit schlechtem Ergebnis. 

Die dabei entstehenden Klänge klingen 
meist mehr oder weniger synthetisch 
(Kunststück, wenn sie ja auch aus ei- 
nem Synthesizer kommen), das stört 
jedoch nur dann, wenn wirklich der 
Klang eines natürlichen Instruments er- 
zeugt werden soll. Dies liegt in der, im 
Vergleich zu den Variationsmöglich- 
keiten bei der natürlichen Erzeugung, 
geringen Variabilität der für die Syn- 


these maßgebenden Parameter. Am be- 
sten lesen sie sich den letzten Satz noch 
dreimal laut vor, verstehen werden Sie 
ihn, wenn Sie nicht gerade musikalisch 
vorbelastet sind, trotzdem kaum. Da- 
bei ist es recht einfach: Ein natürliches 
Instrument besitzt von sich aus so viele 
Elemente, so daß eine Synthese mit den 
gegebenen Mitteln nur mittelmäßig 
ausfallen kann. Dies kann man sehr 
schön an der menschlichen Stimme se- 
hen (die natürlich auch 'natürlich’ ist), 
kaum ein Computer ist in der Lage, 
menschliche Laute naturgetreu wieder- 
zugeben, obwohl es schon die teuersten 
und kompliziertesten Spracherzeu- 
gungs-Chips gibt. Die komplexen har- 
monischen Vorgänge und die Verknüp- 
fung der einzelnen Parameter lassen 
sich nur annäherungsweise in Pakete 
zu vier oder acht Bit pressen (die man 
braucht, um einer digitalen Rechenma- 
schine Werte "unterzujubeln’). Bei die- 
ser Vereinfachung geht zuviel verlo- 
ren. Ebenso ist klar, daß man von sei- 
nem Computer auch die Klänge eines 
Sinfonieorchesters nicht erwarten 
kann, es sei denn, man investiert einige 
Tausender in Peripherie (Stichwort 
MIDI). Aber selbst dann ist es immer 
noch nicht das Wahre. Das macht aber 
fast nichts, denn welches Techno-Kid 
kennt im Zeitalter von Synthesizer, Se- 
quencer und Drumcomputer noch den 
natürlichen Klang einer Violine... (No 
offence meant! Bitte keine Attacken ge- 
gen den überkommenen Bildungsdün- 
kel des Autors: Selbiger ist ausgewo- 
gen und bevorzugt neben romantischen 
Sinfonien auch kernigen Blues, mit 
verzerrten Gitarren und einer 'fuzzy 
harp’ auch nicht unbedingt das Ideal 
des reinen Klangs. Und dann die Syn- 
these beider Welten in Deep Purple’s 
’Concerto'... Naja, ich geb’s zu — im 
Zeitalter von Modern Talking gibt es 
doch genug Anlaß für Generationen- 
konflikte.) 

Dieser Bericht soll keine umfassende 
Einführung in die Klangsynthese oder 
in die Funktionsweise bzw. Program- 
mierung von Soundchips liefern. Er ist 
vielmehr als genereller Überblick über 
die Möglichkeiten einzelner Computer 
und deren Hintergründe gedacht — mit 
der Frage im Vordergrund: Warum 
kann dieser Rechner mehr (oder weni- 
ger) als meiner (oder ein anderer). 


Grundlagen 


Grundelemente eines jeden Soundchips 
sind Oszillatoren, die eine Schwingung 
mit bestimmten Eigenschaften erzeu- 
gen. Die primären Eigenschaften sind 
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Frequenz und Amplitude des Signals, 
vereinfacht also die Höhe und die Laut- 
stärke eines Tons. Dies sind jedoch 
nicht alle Parameter, die den endgülti- 
gen Klang bestimmen. Die Form der 
erzeugten Wellen spielt ebenfalls eine 
Rolle in der akustischen Wahrneh- 
mung. So klingen Sinuswellen 'abge- 
rundeter’e und angenehmer als 
Rechteck- oder Sägezahnwellen. Ne- 
ben der Grundfrequenz eines Tons tre- 
ten auch harmonische Oberwellen auf, 
die den natürlichen Klang eines Instru- 
mentes mitbestimmen, von elektroni- 
schen Klangquellen jedoch nur unter 
größerem Aufwand zu reproduzieren 
oder gar zu beeinflussen sind (Stich- 
wort Filter). 

Ein weiterer wichtiger Parameter ist 
der Verlauf der Lautstärke bei einem 
Ton. Einfaches Ein- und Ausschalten 
der Quelle ist ziemlich langweilig und 
unnatürlich. Daher wird der Lautstär- 
keverlauf meist durch eine sogenannte 
Hüllkurve (Envelope) beeinflußt. Die- 
se regelt, wie schnell ein Ton beim 
» "Anschlagen’ seine Maximallautstärke 
erreicht, wie hoch diese ist, wie lange 
sie gehalten wird und wie der Ton aus- 
klingt. Die Form dieser Hüllkurve 
kann je nach Soundchip in verschiede- 
nen festen Formen vorbestimmt sein, 
sie kann jedoch auch durch vier Para- 
meter bestimmt werden, hier spricht 
man dann von ADSR-Hüllkurven, die 
Kürzel stehen für 'Attack’, "Decay', 
"Sustain’ und 'Release’. 

Eine große Variationsbreite in den er- 
zeugten Klängen läßt sich erreichen, 
wenn nicht nur die Ausgangsfrequen- 
zen der Oszillatoren vom Programmie- 
rer beeinflußt werden können, sondern 
wenn sich die Oszillatoren auch gegen- 
seitig beeinflussen können. So kann ein 
Oszillator die Frequenz oder Amplitu- 





gebauten Musikerzeugern der leistungsstärkste 


ADSR 
— Tonarbeiten fürs gute Hören 


Auf den ersten Blick denkt man beim 
Kürzel ADSR an alles andere, nur 
nicht daran, daß es etwas mit Musik 
zu tun haben könnte. Ohne Attack, 
Decay, Sustain und Release würde 
die Musikwelt nur halb so schön 
klingen. Und dabei versteckt sich 
hinter diesen Begriffen noch nicht 
mal etwas Furchtbares: 


Alle vier zusammen bilden die Zeit- 
phase, in der ein Ton erklingt, und 
zwar in der Reihenfolge Attack (An- 
stiegszeit: Der Ton wird 'aufge- 
baut’), Decay (der Ton ändert seine 
Klangfarbe bis zum Anfang der Su- 
stainphase), Sustain (ab hier bleibt 
er im Klang gleich) und Release 
(hierunter kann man sich das 'Los- 
lassen’ der imaginären Tontaste 
vorstellen, danach klingt der Ton 
entweder abrupt oder langsam, je 
nach Instrumentenart, aus). Jeder 
Ton besteht aus einer solchen 





ADSR-Kurve, es kommt nur darauf 
an, wie das Instrument sie erzeugt, 
eine kleine Änderung in der Kurve 
ändert den Klang schon enorm. 











de eines anderen Oszillators variieren, 
wobei Vibrato- und Tremolo-Effekte 
entstehen. Weitere Effekte entstehen, 
wenn die Signale mehrerer Oszillato- 
ren gemischt oder rückgekoppelt wer- 
den. Diese Fähigkeiten hängen jedoch 
von den verwendeten Soundchips ab, je 
nach Preisklasse erhält man mehr oder 
weniger von diesen Funktionen. So 
bietet der Soundchip der CPCs nur ei- 
nen Grundbedarf an Variationsmög- 
lichkeiten, der auf der AdLib-Karte der 
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PCs verwendete Chip bietet dagegen 
eine fast unübersichtliche Vielfalt an 
Optionen. Dazu im folgenden mehr. 


Drei Stimmen für den CPC 


Von Haus aus sind die CPC-Rechner 
die musikalischsten der hier untersuch- 
ten Rechner. Das liegt daran, daß sie 
serienmäßig mit einem Soundchip aus- 
gerüstet sind, dem AY 3-8912. Mit ihm 
können bis zu drei Stimmen gleichzei- 
tig hörbar gemacht werden. Frequenz 
und Lautstärke lassen sich für jeden 
Kanal einzeln einstellen, zu jedem Ka- 
nal kann auch noch ein Rauschsignal 
zugemischt werden. Neben der direk- 
ten Steuerung der Lautstärke der Kanä- 
le kann diese auch durch einen Hüll- 
kurvengenerator erfolgen, allerdings 
kennt dieser Generator nur neun feste 
Hüllkurven, eine größere Variabilität, 
wie sie das individuelle Verändern der 
ADSR-Parameter erlaubt, ist also nicht 
möglich. Auch können sich die Oszilla- 
toren nicht gegenseitig beeinflussen, 
was Modulationseffekte unmöglich 
macht und die Möglichkeit ’neuer 
Klänge’ nahezu ausschließt. So gese- 
hen ist der AY 3-8912 zwar nicht unbe- 
dingt der leistungsfähigste Chip seiner 
Art, aber immerhin ein im Preis-Lei- 
stungsverhältnis und in den Resultaten 
meist befriedigender Lärmmacher. 

Dazu kommt noch, daß er voll in den 
Rechner integriert ist und dort volle 
Unterstützung, beispielsweise durch 
das CPC-interne BASIC, erfährt. Dies 
ist bei nachträglichen Zusätzen, wie sie 
bei den PCWs und PCs üblich und not- 
wendig sind, nicht immer der Fall, dort 
ist man auf die "Gnade’ von Software- 
produzenten angewiesen. Will man je- 
doch den Sound der CPCs verbessern, 
ist man auf Eigeninitiative angewiesen, 
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Abb.2: Pianoman ist ein Public-Domain-Programm, das recht anspre- 


chend zeigt, daß auch der PC-Lautsprecher mehr kann, als nur Warnungen 


zu piepsen 
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da der Standard ab Werk gesetzt und 
auch nur dieser unterstützt wird und 
Hardware-Erweiterungen auf diesem 
Markt nur selten zu finden sind. (Eine 
Möglichkeit des "Aufmotzens’ des 
CPC-Sounds besteht im Anschluß des 
leistungsfähigeren Soundchips des 
Commodore 64 (ein solches Projekt 
wurde in Heft 8/89 veröffentlicht.)) 


Armer PCW...? 


In Sachen Klang sind die PCWs extrem 
schwach auf der Brust. Dies liegt in der 
Anlage der Rechner als primäres Text- 
system begründet, die keinen Platz für 
musikalische Schnörkel läßt. Dement- 
sprechend sind sie auch nur mit einem 
kleinen Summer ausgerüstet, der zur 
Erregung von Aufmerksamkeit (oder 
Unwillen, je nach Dauer des Tones) 
nur einen Ton von fester Frequenz und 
Lautstärke ausgeben kann. Dies ist na- 
türlich das denkbar schlechteste Medi- 
um für eine musikalische Betätigung, 
dementsprechend dürftig und piepsig 
sind auch die Resultate. Wenn man die- 
sen Piepser jedoch nur schnell genug 
ein- und ausschaltet und die Zykluszei- 
ten variiert, lassen sich dennoch einige 
Effekte erzielen. Meisterschaft auf die- 
sem Gebiet haben die Programmierer 
aus dem Hause Ocean Software er- 
reicht, in ihren Spielen kann man stel- 
lenweise sogar die angestrebte Melodie 
erkennen. In eigenen Programmen 
kann man über die Portadresse 248 den 
Piepser direkt ansteuern: Die Ausgabe 
von 11 (dezimal) schaltet ihn für eine 
beliebige Zeit ein, durch die Ausgabe 
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Abb.3: Die AdLib-Karıe für den PC wird heute schon von vielen Program- 
men unterstützt, vor allem im Spielebereich wird der dazugehörige Sound 


gleich mitgeliefert 


von 12 wird der Hausfrieden wieder 
gerettet. Das geht auch unter BASIC, 
die für ’feinere’ Modulation nötige Ge- 
schwindigkeit läßt sich jedoch nur per 
Assembler erreichen. 

Dennoch braucht der geneigte Spieler 
nicht auf musikalische Erbauung zu 
verzichten. Mit einem Zusatzmodul 
von dk’tronics erwirbt er nicht nur ein 
Joystick-Interface, sondern auch einen 
recht passablen Soundsynthesizer. In 
ihm tut mit dem AY 3-8912 der gleiche 
Baustein wie auch im CPC seine aku- 
stischen Dienste, zwar ohne Stereo-Ef- 
fekte, aber besser und vor allem ange- 
nehmer als der eingebaute Piepser. 
Leider unterstützen nur wenige Pro- 
gramme (überwiegend Spiele) das In- 
terface, aber der PCW ist halt in erster 
Linie ein bierernster Computer. (Zur 
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Abb.4: Der Aufbau einer ADSR-Kurve. Ohne sie hätten wir nur halb soviel 


Spaß beim Hören 
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Erregung von Vorfreude: In einer der 
nächsten Ausgaben wird als Bastelei 
ein solcher Synthesizer für den Eigen- 
bau vorgestellt werden. Also, Joyce- 
Besitzer, schon mal den Lötkolben vor- 
wärmen.) 


Mono-Tonie auf dem PC 


Rechner der PC-Klasse sind im Ver- 
gleich zum PCW zwar etwas besser 
ausgestattet, der wahre musikalische 
Genuß (relativ gesehen natürlich) 
kommt bei ihnen jedoch nicht auf. Bei 
ihnen kommt der Lärm zwar aus einem 
echten Lautsprecher, dieser wird je- 
doch mit Rechtecksignalen angesteu- 
ert, was zu sehr "durchdringenden’ Ge- 
räuschen führt. Dazu kommt noch, daß 
ein Lautstärkeregler eher der Ausnah- 
mefall ist, was einen PC zumindest zu 
einer sehr lauten Maschine macht, der 
durchdringende Rechtecksignal-Ton 
läßt einem morgens bei Arbeitsbeginn 
erschauern. 


Dauer und Frequenz des Tones können 
aus Programmiersprachen heraus be- 
einflußt werden, im Normalbetrieb be- 
schränken sich die musikalischen Fä- 
higkeiten jedoch auf den obligatori- 
schen Piepser fester Dauer und Fre- 
quenz bei Eingabefehlern. Durch 
direkte Programmierung lassen sich je- 
doch anhörbare Effekte programmie- 
ren, die insbesondere bei Spielen zu 
Tage treten. Besonders hörenswerte 
Effekte sind beispielsweise in den Spie- 
len "Zak McKracken’ (meiner Mei- 
nung nach der beste Soundtrack, der 
bislang aus einem PC-Lautsprecher 
kam), ’Skyfox’ oder "Test Drive’ zu 
finden, auch die Sierra-Spiele warten 
mit guten Melodien auf, scheitern aber 
an der Einstimmigkeit der Hardware. 


Te 


Mit einigen Tricks lassen sich jedoch 
auch polyphone Melodien abspielen, 
'Pianoman' aus der Public Domain ist 
hierfür ein sehr brauchbares Werk- 
zeug. Sogar zur Ausgabe von digitali- 
sierten Klängen oder Sprache eignet 
sich der Lautsprecher, das Spiel "Wiz- 
ball’ oder diverse Tools aus der Public 
Domain belegen dies. Die Ergebnisse 
sind natürlich nicht mit denen eines 
Atari oder Amiga zu vergleichen, an- 
gesichts der verfügbaren mageren 
Hardware sind sie jedoch beachtlich. 

Zum Ausgleich für die mangelhafte Ei- 
genmusikalität der PCs warten diese 
mit einer relativ großen Vielfalt an Zu- 
satzkarten für die Klangerzeugung auf. 
Vier verbreitete Steckkarten stehen 
dem Anwender zur Wahl. Zur oberen 
Preisklasse von 1200 bis 1500 DM ge- 
hören die MT-32-Karte von Roland, 
die mit ihren 32 Stimmen vor allem im 
professionellen Studiobereich zum 
Einsatz kommt, und die IBM-Mu- 
sic-Feature-Card, die acht Stimmen, 
beim parallelen Einsatz zweier Karten 
auch 16 Stimmen hörbar machen kann. 
Die Klänge dieser Karten sollen sehr 
gut sein, der Autor hatte bislang leider 


noch nicht das Vergnügen, selbige ge- 
nießen zu können. Für den Heiman- 
wender hält der Markt jedoch zwei 
Steckkarten im Bereich unter 500 DM 
bereit, die ebenfalls akzeptable Lei- 
stungen bringen. Da wäre zum einen 
die Creative-Music-Score-Karte (im 
Vertrieb bei Markt & Technik), die 
zwölf Stimmen bietet. Sie wird mit um- 
fangreicher Software geliefert, leidet 
aber an mangelnder Unterstützung 
durch den Softwaremarkt. Dieses Pro- 
blem ergibt sich bei der AdLib-Synthe- 
sizerkarte nicht, diese hat sich inzwi- 
schen zum Standard im Low-Cost-Be- 
reich gemausert. Die Software-Unter- 
stützung für diese Karte ist beachtlich: 
Neben Eigenprodukten von AdLib wie 
einem Kompositionsprogramm oder 
einem residenten Abspielprogramm 
(Tabellenkalkulation mit Musik — öf- 
ter mal was Neues) wird die AdLib- 
Karte vor allem auch von Spieleherstel- 
lern unterstützt. Alle neuen Adven- 
tures von Sierra liefern einen hervorra- 
genden Soundtrack, der den Spielreiz 
erheblich erhöht. Das neueste Baller- 
spiel namens ’Silpheed’ fährt sogar 
doppelgleisig und liefert parallel zur 


hörenswerten Musik der AdLib-Karte 
noch die obligatorischen Ballergeräu- 
sche auf dem internen Lautsprecher. 
(Das ist fast schon ein Amiga-Feeling!) 
Die Sierra-Spiele unterstützen auch 
noch andere Soundkarten wie die 
Music-Feature-Card, MT 32 oder das 
CasioTone-Interface, für diese Karten 
ist jedoch auf wenig andere Unterstüt- 
zung zu hoffen. Electronic Arts hat 
sich ebenfalls auf die AdLib-Karte ein- 
gespielt, '688 Attack Sub’ oder "Kings 
of the Beach’ unterstützen diese Karte. 
Die Resultate sind zwar hörenswert, 
aber insofern etwas mager, als sich die 
Musik lediglich auf das Titelbild be- 
schränkt. Der Reiz von animierter Gra- 
fik mit musikalischer Untermalung, 
wie ihn Sierra bietet (besonders gut ge- 
fällt dort "Space Quest III’), entfällt 
hier leider. 

Die Leistungen der AdLib-Karte sind 
wirklich akzeptabel, daher sei sie als 
einzige der für den PC verfügbaren 
Karten genauer vorgestellt. Sie kann in 
zwei Modi betrieben werden, entweder 
mit neun Melodiestimmen oder mit 
sechs Melodie- und fünf Perkussion- 
stimmen. Möglich ist dies durch die ex- 








* RAM-Erwoiterung 64, 128, 256 oder 512K für allo CPCs 
Alle Versionen nachträglich auf Maximal-Vorsion aufrüstbar 


Neue Speichererweiterung für CPC 








* optional 2 EPROM-Sockel mit frei wählbarer ROM-Nummar (1-15) 

* Patchprogramm für CP/M 2.2 (63K CP/M). Endlich laufen dBase, Multiplan und Wordstar 

* Patchprogramm für CP/M Plus. CPYM Plus auch für CPC 484/664 

* rasatfosto RAM-Disc (maximal 448X) für CPIM 2.2 und CP/M Pius 

" rasatfeste RAM-Disc unter BASIC (nur bei EPROM-Version) 

* 100% kompatibel zu dk'tronics NEE RRUNN und Siticon-Disc 

* Anschluß über dan Expansionsport (kein Eingriff in den Rechner nötig) 

" geringe Abmessungen (mt Gehäuse: 160 x 83 x 20 mm) durchgaführter Erweiterungsbus 


RAM-Erweiterung mit Software für CP/M 2,2 und CP/M Plus auf 3*.Diskette 
(wahlweise auch 3,5*- oder 525"-Diskatte) 


Preise: ohne RAMS.....99- DM 64 Köytb..... 149,— IN 128 KByte... 199,- DM 
256 KByte...........299,- DM 512 KByte... 449,- 0) 


Aufpreis für zusätzliche EPROM- Sockol und Software im EPROM 


X-Laufwerk tür cpc 464/664/6128 
Das X-Laufwork ist ein Systemlaufwerk, das anstelle eines 3*-Zweitlaufwerks am CPC 66416128 
mit eingebauter oder am CPC 464 mit zusätzlichem 3*-Controlier betrieben wird. Das X-DDOS- 
Botriebssystom wird zusammen mit einer EPROM-Karte an den CPC angeschlossen, 716 K nutz- 
bare Kapazität unter BASIC, CP/M 2.2 und CPIM Plus. 
* Die RAM-Belegung von X-DDOS ist nahezu 100% kompatibel zu AMSDOS 
* Es kann softwaremäßig zwischen X-DDOS und AMSDOS umgeschaltet werden 
* Es werden Anpassungsprogramme für CP/M 2.2 und CP/M Pius mitgeliefert. 
* Die CP/M Plus Anpassung ist auch auf einem CPC 464/664 mit 64K RAM-Erw. lauffänig 
S Ye van KByte EPROM-Kärte hat bei Installiertem X-DDOS noch eine Restkapazität von 
2 yte. 
* Damit X-DDOS auch in beliebigen anderen EPROM-Karten lauffähig ist, wurde völlig auf 
einen Kopierschutz verzichtet 
* Als LOW-COST-Lösung beim CPC 464 kann das X-DDOS-EPROM auch einzeln bezogen 
und direkt gegen das AMSDOS-ROM ausgetauscht werden. 


X-DDOS-EPROM, Software & Beschreibung 99,- DM 















49,- DM 
































224-KByte EPROM-Karte, X-DDOS, Software & Beschrebung 239,- DM 
5.25" oder 35" X-Laufwerk, 224-KByte EPROM-Karte, X-DDOS, Softtw. & Beschr. 589,- DM 
5.25" oder 35* X-Laufwerk, RAM-Erw. ohne RAMs, X-DDOS, Softw. ä Beschr. 589,- DM 





EPROM- Karte 224 KByte für alle CPC 


* Für die EPROM-Typen 2764, -128, -256 
* ROM-Nummern 0-15 frei wähldar 


"7 


kal 
* Bei 27256 zwei ROM-Nummern pro Sockel 
* Durchgeführter Expansionsport 
* Software zum automatischen Erstellen von Programmodulen (BASIC und BIN-! BaeO) 
Fortiggerät für CPC 464/664 DM 145,— Fertiggerät für CPC 6128 DM 169,- 
Modul-Software auf 3°-Disketto DM 95,- 


Zubehör für EPROM-Karten 





EPROM 2764 DM 7,50  Protat-EPROM DM 124,- Maxam-EPROM DM 124,- 
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Telefon 06202/71417 


DOBBERTIN 












CPC lotes,EiE 6: PC ‚Am- 
strad 1512 ,1640, 2086 
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Spezialkabel f.Joyce plus (8512) mit Umschalter B-Intern 3" zu 

B-Extern 5.35" mM: 2.00 
Teamdrivecopy CPM-MSDos Disk.-Kopierprg. 1.350720 KB IM: 59.00 
Preise zzol.Porto u. Verpackung Versand p.Nachnamme Liste kostenlos 
Krebs electronic DatentechnikHard-u.Software 6751 Wellerbach 
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CSV Riegert FAX (0 71 61) 13587 
Schloßhofstr. 5, 7324 Rechberghausen, Tel. (0 71 61) 5 28 89 





989 PC 17 


2 en 





Abb.5: Das dk'tronics Joystick-/Soundinterface für die PCWs 


18 miteinander verknüpfbare und in 
großen Bereichen manipulierbare Os- 
zillatoren besitzt. AdLib liefert ein 
breites Spektrum an Zusatzprogram- 
men, von einem bequemen Musikedi- 
tor über residente und nichtresidente 
Abspielprogramme sowie ein Spiel zur 
Erlernung musikalischer Fähigkeiten 
bis hin zum Werkzeug zur Generierung 
eigener Instrumentenklänge oder einer 
Midi-Schnittstelle. Allerdings schla- 
gen diese Produkte nochmals extra zu 
Buche, so daß für ein komplettes Ad- 
Lib-System ein runder Tausender zu 
veranschlagen ist. Wer nicht selbst 
kreativ werden und nur von Zeit zu 
Zeit mal ein etwas anderes Spiele-Fee- 
ling erleben möchte, kann auf diese 
Zusätze auch verzichten und ist dann 
mit 498 DM dabei. (Für Sierra-Süchti- 
ge sollte diese Karte angesichts der zu 
erwartenden Spieleflut ebenso zum 
ständigen Inventar gehören wie die Te- 
lefonnummer der Hotline unserer 
Schwesterzeitschrift "Joystick’...) 


Mini-Midi-Maxi 


Mit dem Konzept der Midi-Schnittstel- 
le wird die Tonerzeugung endgültig 
aus dem Computer verlagert, er dient 
hier nur noch als Steuerzentrale. Über 
eine serielle Schnittstelle können Daten 
zwischen dem Rechner und entspre- 
chend ausgerüsteten Musikinstrumen- 
ten ausgetauscht werden. So können 
beispielsweise Musikstücke auf einem 
Keyboard gespielt und gleichzeitig 
vom Rechner aufgezeichnet werden. 
Dort können sie gespeichert, modifi- 
ziert und wieder abgespielt werden. 
Für genauere Hintergründe über das 
Midi-Konzept sei auf die entsprechen- 
de Fachliteratur verwiesen, da das 
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Thema den Rahmen dieses Berichtes 
sprengen würde. 

Durch den hohen technischen Stand der 
externen Musikinstrumente ist die 
Qualität der erzeugten Klänge natürlich 
hervorragend, allerdings ist für diese 
Art des Musizierens auch ein recht ho- 
her finanzieller Aufwand erforderlich, 
der sich für Gelegenheitsmusiker nicht 
immer lohnt. An den Steuerrechner 
werden dabei keine allzugroßen Anfor- 
derungen gestellt, für ihn muß nur ein 
entsprechendes Interface und die nöti- 
ge Steuersoftware vorhanden sein. Sol- 
che Pakete gibt es bereits für die CPCs 
und PCs, für die PCWs soll ein ent- 


rn ee 
MIDI 


— Modemuffels Lieblingsthema 


Entgegen vieler Ansichten hat MIDI 
in der Computertechnik so viel mit 
Mode zu tun, wie ’File’ mit (fast) 
gleichnamiger Fleischspeise. MIDI 
ist die Abkürzung für Musical Instru- 
ment Digital Interface — eine 
Schnittstelle zwischen MIDI-fähi- 
gem Musikinstrument (dazu gehören 
nicht nur Keyboards, sondern inzwi- 
schen auch Gitarren, Saxophone 
und, mozartnochmal, sogar schon 
Violinen) und Computer. MIDI wird 
durch eine serielle Schnittstelle re- 
präsentiert, deren Übertragungsge- 
schwindigkeit sehr hoch sein muß 
(31,25 kBaud), da die Musik mög- 
lichst zeitgleich auf dem Instrument 
oder vom Instrument auf den Rech- 
ner gelangen soll. Einige Computer 
verfügen von Hause aus über eine 
eingebaute MIDI-Schnittstelle (@.B. 
Atari ST), für andere gibt es peri- 


phere Schnittstellen im Handel. 








sprechendes Interface auf den Markt 
kommen. 


Ausblick 


Das Thema Tonerzeugung auf dem 
Computer ist ein sehr komplexes Ge- 
biet, welches sich nicht generell abhan- 
deln läßt, dazu sind die Voraussetzun- 
gen der einzelnen Rechner einfach zu 
unterschiedlich. Wer eigene Klangex- 
perimente unternehmen möchte, der ist 
auf Quellen aus dritter oder vierter 
Hand angewiesen. Eine Quintessenz 
derselben kann im Rahmen dieses Be- 
richtes natürlich nicht geliefert wer- 
den, wohl aber einige Hinweise. Die 
CPC-Anwender sind durch die überaus 
reichlichen Informationen, beispiels- 
weise aus dem Hause Data Becker, be- 
stens versorgt. Das Buch ’CPC intern’ 
aus diesem Hause könnte auch für 
PCW-Besitzer auszugsweise interes- 
sant sein, wenn diese ihr dk'tronics-In- 
terface selbst programmieren möchten. 
Die notwendigen Informationen zum 
Soundchip stehen dort, die Aufrufe der 
Hardware können dem Demo-Listing 
entnommen werden (oder man wartet, 
bis die geplante Bauanleitung veröf- 
fentlicht wird). Besitzer eines PC mit 
AdLib-Karte können auf das Program- 
mer’s Manual zu dieser Karte zurück- 
greifen. Die dort enthaltenen Informa- 
tionen rechtfertigen vielleicht nicht un- 
bedingt den hohen Preis, enthalten je- 
doch fast alles, was man zur 
selbständigen Programmierung dieser 
Karte benötigt. (Es empfiehlt sich drin- 
gend, alle Infodateien auf der Diskette 
zu lesen, desgleichen auch eventuell 
vorhandene Aversionen gegenüber C- 
Programmen abzubauen und auch in 
die Beispielprogramme zu schauen, 
denn dort erfährt man manchmal mehr 
als aus dem Handbuch...) 


Zu guter Letzt bittet die Redaktion um 
Verständnis dafür, daß weder im Heft 
noch auf der DATABOX Hörbeispiele 
für die einzelnen Rechner veröffent- 
licht werden konnten. Die Experimen- 
te mit der Kassettenversion der CPC- 
DATABOX gingen noch gut aus, beim 
Transfer auf Disketten gab es jedoch 
Probleme; desgleichen stießen wir 
beim Satzcomputer auf taube Ohren. 
Außerdem hätte der Checksummer auf 
akustische Listings angepaßt werden 
müssen (10 Mannjahre Arbeit), und 
überdies ist der 1. April noch so weit, 
daß sich ein Aufwand nicht gelohnt 
hätte. 


(Michael Anton/jb) 
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aa Schneller Alleskönner 


Der PC 2286 - Amstrads 


8 Beitrag zur AT-Welt 


Mit dem PC 22886 stellt sich der dritte Computer der 
Mamma ment TEFN Inn ke) za BEE I 


| schnellen 80286-Prozessor soll er im Geschäfts- wie auch im 
Privatbereich für Furore sorgen. Eines der neuen Geräte 

| stand in unserer Redaktion zum Testen bereit. Lesen Sie 

| hier, ob der PC den Erwartungen gerecht werden kann. 
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Die Ausstattung des PC 22886 ist diesel- 
be wie beim ’großen Bruder’: In zwei 
stabilen Kartons befinden sich Moni- 
tor, Zentraleinheit, Tastatur, Maus und 
Handbücher. Da der Monitor und die 
Zentraleinheit über eigene Netzteile 
verfügen, können auch Fremdmonitore 
an die Zentraleinheit angeschlossen 
werden, der Anschluß entspricht der 
Norm, es braucht nur auf die Pinbele- 
gung geachtet werden. Auch unter den 
Amstrad-Monitoren lassen sich unter- 
schiedliche wählen, doch dazu später 
mehr. Die Zentraleinheit entspricht de- 
nen der anderen neuen Amstrad PCs, 
die Ausstattung mit Schnittstellen und 
Diskettenlaufwerk ist gleich, die Ab- 
messungen sind etwas kleiner als beim 
PC2386 und etwas größer als beim 
kleinsten der drei. Als Grafikkarte be- 
herbergt der AT wie die anderen Mo- 
delle eine VGA-Karte mit Emulation 
der anderen Standard-Grafikkarten wie 
CGA, EGA und Hercules. Der Moni- 
tor sitzt ebenfalls wie bei den anderen 
Computern in einer Aussparung auf 
dem Rechner, die auch die Batterien 
zur Stromversorgung des nichtflüchti- 
gen Speichers aufnimmt. An Software 
wird die MS-DOS-Version 4.011, eine 
Sonderversion von Amstrad, sowie die 
Installationsdisketten für Windows 286, 
der komfortablen Benutzeroberfläche, 
mitgeliefert. An Handbüchern liegen 
dem Computer je ein DOS-, ein GW- 
BASIC- und ein Windows-Handbuch 
bei sowie Kurzreferenzen zu Windows 
und GW-BASIC. 


Die Installation der Hardware 


Falls das Gerät vom Händler nicht fer- 
tig installiert ausgeliefert wurde, so 
wird der Computer nach dem Einschal- 
ten auf ein Konfigurationsprogramm 
zugreifen, welches sich auf der ersten 
Systemdiskette befindet, der Datei 
SETUP. Diese enthält die Daten des 
nichtflüchtigen Speichers, also Daten 
wie Anzahl der Laufwerke, Lauf- 
werkstyp (3,5 Zoll oder 5,25 Zoll), Ty- 
pennummer und Art der Festplatte, 
Hauptspeichergröße und Größe des 
'Expanded Memory’, also des erwei- 
terten Speichers, sowie Datum und 
Uhrzeit der Systemuhr. 


Der PC 2286 verfügt über einen Ge- 
samtspeicher von 1 MByte, der aufge- 
teilt wird in 640 kByte Hauptspeicher 
und 384 kByte Erweiterungsspeicher 
(die Summe ergibt etwas mehr als 1 
MByte, dies errechnet sich aus dem 
Wert 1 kByte = 1024 Byte). Der Spei- 
cher kann bis zu 16 MByte aufgerüstet 
werden, ein Wert, der jedoch nur in ex- 


— PC2286/386 Setup Urility tvil.2) 


Abb.1: Die Systemkon- 
figuration kann mit 
dem Setup-Programm 
eingestellt werden. 
Hier stehen auch die 
Daten der Festplatte, 
man sollte beim Ein- 
richten auf die richtige 
Typennummer achten, 
Außerdem kann hier 
das 'Expanded Memo- 
ry' eingestellt werden 


Mouse 


tremen Fällen erreicht wird, vorzustel- 
len wäre der Einsatz im CAD-Bereich. 
Ein Teil des Speichers kann wieder als 
Cache genutzt werden, einer Art Puf- 
fer, in der Programme zur Zwischen- 
speicherung aufgenommen werden und 
nach nochmaligem Aufruf sofort be- 
reitstehen. Dieser besitzt damit einen 
unschlagbaren Geschwindigkeitsvor- 
teil, da auch die Diskettenzugriffe auf 
ein Minimum reduziert werden. Auf 
der Hauptplatine befindet sich ein lee- 
rer Sockel neben dem Prozessor, hier 
kann optional ein Arithmetik-Copro- 
zessor des Typs 80287 eingesetzt wer- 
den. Der Hauptprozessor wird mit 12 
MHz getaktet, durch die besondere Be- 
fehlsstruktur und den schnellen Takt ist 
der 2286 nicht gerade einer der lang- 
samsten Computer, Berechnungen ei- 
nes Apfelmännchens in hoher Auflö- 
sung gehen sehr schnell vonstatten. 

Der Einsatz eines Arithmetikprozes- 
sors bringt dabei nur dann Vorteile, 
wenn die entsprechenden Programme 
auch auf ihn zugreifen. Beim Laufwerk 
handelt es sich um ein 1,44 MByte 
3,5-Zoll-Laufwerk für Disketten mit 
hoher Schreibdichte. Die Festplatte hat 
eine Kapazität von 40 MByte, Selbstin- 
stallierer sollten in der SETUP den Typ 
49 einstellen. Bei unserem PC hatten 
wir es mit einem uninstallierten Gerät 
zu tun, beim Einrichten der Platte hat- 
ten wir mit Schwierigkeiten zu kämp- 
fen, so wurde nach Anlegen einer Par- 
tition die Platte nicht mehr erkannt und 
konnte erst nach mehrmaligen vergeb- 
lichen Versuchen mit einem speziellen 
Festplattenprogramm noch einmal for- 
matiert werden. Nach Auskunft der 
Firma Amstrad scheint aber nur uns 
der Pechvogel besucht zu haben, bei 
den ausgelieferten Geräten, die der 
Käufer selbst installiert, sollte man 
grundsätzlich auf die Plattentype ach- 
ten. Bei der Installation von Windows 
kann man noch auswählen, ob der 
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Hard Disk Controller . 
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PagePcol of LIM EMS available OK (This value will change when 
the amount of base and/or extended merory is changed), 
ard Drive C: Use cursor keys to select drive type and <RETURN> to accept it 





Rechner nach dem Start direkt in die 
Benutzeroberfläche startet oder man 
sich im DOS wiederfinden möchte. 


Eine runde Sache... 


..ist er schon, der Amstrad AT, auch 
wenn seine äußere Form etwas eckig 
wirkt, trotz der runden Kanten. Mit 
seiner Rechengeschwindigkeit kann er 
sich im Kreise seiner Mitbewerber 
schon sehen lassen, leider sind die 
Disketten- und Plattenoperationen 
nicht die schnellsten, die Platte war nur 
mit einem Interleave-Faktor von 2 ef- 
fektiv zu betreiben, und das Disketten- 
laufwerk braucht eine geraume Zeit für 
einen Schreib- oder Lesezugriff. Trotz- 
dem macht das Gerät einen soliden und 
technisch einwandfreien Eindruck. 
Dank der mitgelieferten System-Soft- 
ware und den, im Gegensatz zu den 
früheren, erfreulich ausführlichen 
Handbüchern wird sich auch der unge- 
übte PC-Einsteiger schnell mit dem 
neuen AT anfreunden. Die Tastatur ist 
übrigens zwar bei allen Modellen eben- 
falls gleich, jedoch erschien es uns, als 
wenn sie, wie schon beim PC 2386, ei- 
nen verbesserten Druckpunkt im Ge- 
gensatz zu den Tastaturen des PC 2086 
hat. Einzig die Maus ist immer noch 
Kritikpunkt Nummer 1, hier sollte die 
Firma Amstrad doch überdenken, ob 
es sich nicht lohnt, das alte 
PC-1512/1640-Modell noch einmal 
durch eine Neukonstruktion zu erset- 
zen. Denn gerade durch den Einsatz 
von Windows, dessen Aufbau noch 
stärker vom Mauseinsatz abhängt als 
GEM, wäre dies gegeben. 


Modellvielfalt 


Der PC 2286 ist mit zwei Disketten- 
laufwerken oder mit einem Laufwerk 
und 40-MByte-Festplatte zu erhalten. 
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Der PC 2286 verfügt wie die anderen 
Modelle serienmäßig über eine VGA- 
Karte, die außerdem CGA, EGA und 
den Hercules-Text- und -Grafik-Mo- 
dus emulieren kann. Als Zubehör sind 
noch externe Laufwerke erhältlich, so 
unter anderem ein 1,2-MByte- und ein 
44B:2: Das Zubehör 360-kByte-5,25-Laufwerk, damit ste- 
es PC 2286. Wiebeim hen einem die vielen Programme der 
"großen Bruder’, dem MS-DOS-Welt offen. 
PC 2386, wurde mit 
Ausstattung nicht ge- 
spart. Für das Erlernen 


der Funktionen und 2 
Möglichkeiten des PC Kurz vor Druck erreichte 


reichen die Handbü- & s 
cher für Neueinsteiger uns noch die Information, 


erst einmal aus daß Amstrad die Preise 





um bis zu 25% gesenkt 

Die Preise liegen dabei für die DD- PC2286 DD 14 HRCD hat, ein PC 2286 DD 12 

Version wie folgt: (hochauflösender 14-Zoll-Color-Mo- MD kostet also jetzt nur 
nitor) für 5195,— DM noch 3495, ee DM. 


PC2286 DD 12 MD (Monochrom-12- Rn 
Zoll-Monitor) für 3995,— DM Für die Rechner mit 40-MByte-Platte 


gelten folgende Preise: 





PC2286 DD 14 CD (Color-14-Zoll- 
Monitor) für 4395,— DM PC2286 HD 12MD -— 4495,— DM 


PC2286HDI14CD - 4995,— DM Zum Schluß kann man also über den 


PC2286 DD 12 HRCD PC2286 nur sagen: Eine fast gänzlich 
(hochauflösender 12-Zoll-Color-Mo- PC2286 HD 12 HRCD — 5395,— DM gelungene Maschine. 
nitor) für 4795,— DM PC2286 HD 14 HRCD — 5795,— DM (jb) 


a na a u me 


Diskettenlaufwerke 


Anschlußfertige Qualitätslaufwerke von TEAC 






















+ STARDRIVE 8.25*:Laufwerke für CPC 8/464/6128 jetzt auch in 2x360-KB-Austührung mit 
- 12 Monate Garantie, Geräte aus industrieller Produktion 

= Formschönes Flachgohäuse mit int. Broitband-LED-Anzeige 

= Sehr leiser Lauf, Netzteil, Schalter etc. 







- hg Diskettenseitenumschalter (alle 5,25"- u. 3,5°-Lautworke) 1 
- Sofortige Betriobsbereitschatt * ; 

- Ale Kabel und Bedienungsanleitung Im Lieferumfang enthalten 2 80 Spuren, 1 B unformatiert. 1 Jahr Gara ntie ! 
35'-Zwoitlautwork (720 KB) nur 208,- DM 

5.25*.Zweitlautwerk (720 KB) nur 348,- DM 


8,25* External Disk Drive: 
(s. Tost In H, 1088 S. 40: Fazit: "sehr empfehlenswert”) 
als Zweitiautwerk nur 298,- DM 


EUROPC 72:35 249. 


360/720 KB, 5.25" 


JOYCE russ: 249. 


726KB,5.25' 348.- 


als Erstlautwork für CPC 464 

Incl. Handbuch, Systemdisketto, Controller nur 498,- DM 
als Doppollaufwerk 3° + 5,25" 1. CPC 464 

Incl. Handbuch, Systemdiskette, Controller nur 898,- DM 
(#. Test PC 8/89, $. 62/63: Das Urteil; »prima-) 

Weitere Angebote (Auszug aus unserer kostenl. Liste) 

- 5.25°-Einbaulaufwork (Siim-Line) nur 139,- DM 








Ih nnd Eyes ng Sa ea MSCoBy (ermöglicht Lesen/Schreiben von MsDos) 49.- 
(mit TEAC-Laufwerk DM 298.-) 40/80 Tr. Umschaltung für 5.25" und MsCopy 20.- 





Zweitlautworke für Euro-PCs 3 1/2* u, 5 114° 


G + L electronic 
Computerhardware 
6759 Hefersweiler * Seelenerstraße 4 * Tel: 06359/2582 


Preis zzgl, Porto/Verpackung, Liste/Prospekte kostonios 








CPC 830KB,3.5'° 298.- 
830KB,5.25° 348.- 
Zweitlaufwerke mit 830 KB formatierter Kapazität unter CP/M, 360 KB 


unter Amsdos bzw. BASIC, Lieterung umfasst ein komplett anschlußfer- 
tiges Diskettenlaufwerk inkl. der Programme DiskPara und MsCopy. 
ee BE 


















Hochstraße 11 
ulersiore 8500 Nürnberg 80 
. Tel.: 0911 / 289028 











= 2. ’ 
an Bene DiskPara füralecrc’ 79.- 
Joyen PON 8250. kompl. Taxtsyatem neu, ns »98, Sic. S0- . } 3 Treiberprogramm zur Erhöhung der 
TO MB NEC-Festpistte (Bench-Test: 18ms) Z8- AmsrdL03500d SSL- Diskettenkapazität. Ermöglicht je nach Laufwerkstyp Kapazitäten bis 
PC 1640 SDIMD + 40MB Fostpl. + Textprogramm 1998 - NECP 6 Pius 1428 - 830 KB unter CPım. Vollkom tibel läuft z.B. mit : Turbo Pascal, 
NEON BIER DBase und WordStar. Getestet in Schneider Aktiv 5/87, c't 5/87, PC 
Mathe-Co-Prozessor 80997 8 MHz 238 - Laufwerk DDI-t 28 Int. 6/87, CPC Magazin 4/87, Happy Computer 4/87, 8. M&T Sonderheft 
80287 10 MHZ 538, - Zweitlaufwerk FD-1 259, - LT 
RAM-Erweiterung PC 1512 auf 840 KB 118, Serielle Schnittstelle 179, - | 
TOWER AT aut 1 MB 198- _BTX-Modul 298 - n 
Filecard auch für 151271620 20 MB 548, - 2 1 5 1 2 720 KB, 3.5 229.- 
2. a er 128 - CRCWONCE ZUBEHÖR =. P C 
Zweitiaufwerk 1512/1640 525° - Mouse-Pac “I, - N 
WERNWEN TOWER ATAS” 1,44 MB 294 - Mawell 3” Disk. 10St 64 | 1 640 Filecard 50 MB, SCSI 898.- 
Externes Zweitlaufwerk für XT und NEVADA Cobol (dt. Handb) 98,- 
PC 1512/1640 35" 720 KB 324- NEVADA Fortran (dt. Handbı) 28, 2 ’ J 
Genius Mouss GM 6 Plus, dt, Version 84,- Sie Festplattenkit 30 MB: 648.- 42 M B . 748.- 
GM 6000, dt. Version ss - JOYCE ZUBEHÖR: —— 
Super Mouse, 3 Tasten. MS-Mouse kompatibei 68,- Serpar. Schnittstelle 189, - fi 
Bus Mouse für Schneider Computer 74,- RAM Erweiterung auf 512 K8 a | Frank Strauß Elektronik 
Wir führen zu den Originai-SCHNEIDER-Produkten Artikel verschiedener Firmen wie VORTEX, STAR-DIVISION, Schmiedstr.11 6750 Kaiserslautern Tel. 1 - 
DATA BECKER, PROFISOFT, ARIOLA, RUSHWARE, MARKT & TECHNIK, SYBEX. GFA, GERDES. STAR, e ® 6 Ka SER e (063 ) 67096 98 


SCHNEIDER-DATA, ABO, SOFTMAKER usw.! Bitte bei Bestellungen genaue Systemkonfiguration angeben. 
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Im Zauberreich der Grafik 
Gestaltung und Umgestaltung 


Als abschließender Höhepunkt unserer Wanderung durchs Zauberreich der 
Grafik folgt hier für alle, die mit dem CPC 6128 arbeiten, die angekündigte 
Erweiterung des MULTISCREEN-Programms. Sicher haben Sie es schon 
bedauert, daß Sie nach zweimaligem Kombinieren oder nach dem Isolieren 
einer Füllfläche das Ausgangsbild nicht mehr im Speicher vorfanden — er 





hatte eben nur für zwei Bilder Platz. Aber jetzt 


können Sie mit vier Bildern gleichzeitig arbeiten! 


Immer neue Gestaltungen er- 
geben sich, frühere Bilder kön- 

nen wahlweise im Speicher gehal- 
ten werden, und Sie brauchen auch 
bei längerem Arbeiten das Laufwerk 
kaum mehr in Betrieb zu nehmen. 
Dazu neue Möglichkeiten bei den 
Optionen und viel Platz im Speicher 
für weiteres — im MULTISCREEN 
6128 haben Sie ein unerschöpfliches 
Hilfsmittel für die Gestaltung und Um- 
gestaltung Ihrer Grafiken. 
Also ans Werk! 

Zunächst benötigen Sie 

das Hauptprogramm (Mul- 
tiscreen.BAS); Sie finden es 
in der Ausgabe 6/89. 


mit den dort angegebenen Zeilen- 
nummern!) und geben Sie dann ledig- 
lich die folgenden Zeilen der Neufas- 
sung ein, die sich gegenüber der bis- 
herigen Fassung geändert haben 
oder etwas Neues bringen: 

60; 65; 158; 200-230; 250; 
300-317; 400-403; 730; 
785-970. 

Nun noch zwei 

kleine Anderun- = 
gen: In Zeile 50 

muß MEMORY &3FFF stehen, und 
Zeile 70 muß am Ende durch die drei 
Zeilennummern 800, 820 und 920 er- 
gänzt werden. Damit ist das Hauptpro- 
gramm schon fertig! 

Jetzt die  Maschinenprogramme: 
“FILLBRK.BIN“ (Heft 6 /89) und 
“PENBYTES.BIN“ (Heft 9/89/Listing 
2) können Sie völlig unverändert über- 
nehmen. Im Datalader “MSDA- 
TAS.BAS“ (Heft 8/89) ändern Sie in 
der letzten Zeile (1000) den Namen in 
“MSCR6128.BIN“ und brauchen dann 
nur drei Zahlen auszutauschen: In Zei- 
le 70 wird die sechste Ziffer (bisher 22) 
durch 40 ersetzt, in Zeile 90 die zehnte 
Ziffer (bisher 62) ebenfalls durch 40, 
in Zeile 490 die dritte Ziffer (bisher 61) 
durch 7F. Fertig! 
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Laden Sie diese Fassung SS 


Der tanzende Zirkusdirektor 


Der Datalader ist damit den völlig ver- 


änderten Speicherverhältnissen im 
CPC 6128 angepaßt. Speichern Sie ihn 
sicherheitshalber, bevor Sie ihn laufen 
lassen; am besten unter dem Namen 
“DATA6128.BAS“, um Verwechs- 
lungen zu vermeiden. 

Und nun als letztes: Kopieren Sie sich 
von Ihrer Systemdiskette das File 
“BANKMAN.BIN“ auf Ihre MUL- 
TISCREEN-Diskette; es ermöglicht 
die Verwaltung der zweiten Speicher- 
bank, in der die vier Bilder abgelegt 
werden. Wie das gemacht wird, ist im 
Handbuch (Kap.4, Kopieren mit PIP) 
erläutert. Sie können statt dessen auch 
im Hauptprogramm als Zeile 58 ein 
CALL w einfügen und beim Starten 
des Programms an dieser Stelle Ihre 


& 


CPM-Systemdiskette (Seite 1) 
einlegen. 

Nun sind wir für alles Neue ge- 
rüstet! Auch beim neuen MULTI- 
SCREEN gilt, wie bisher, daß Sie 
nach jedem Programmabbruch mit der 
ENTER-Taste wieder ins Menü zu- 

rückkommen, selbst wenn Sie zwi- 
schendurch Änderungen am Pro- 
gramm vorgenommen haben. Sonst 
aber hat sich allerhand geändert. Wir 
werden im folgenden nur auf 
diese Änderungen näher 
eingehen und verweisen 
für das übrige auf die aus- 
führliche Darstellung der 
MULTISCREEN-Möglichkei- 
ten in den vorausgehenden 
Heften. 


Option 1: Laden 





2 
r 
PA) 
9, 
Sie können jetzt bis zu vier Bilder ein- 
: laden! Mit jedem neuen Bild rücken 
R die schon vorhandenen im Spei- 


cher um eine Stelle weiter; 
wenn noch ein weiteres 
Bild dazukommt, wird 
jeweils das älteste, 
-, das jetzt an vier- 
ter Stelle 
steht, 

aus dem Speicher wieder entfernt. 


Option 2: Zeigen H 

Hier liegen die größten Anderungen 
gegenüber dem bisherigen “Tau- 
schen“, Druck auf die <Leertaste> 
zeigt der Reihe nach die Bilder, die im 
Speicher sind. Bearbeitet wird jeweils 
Bild 1; kombiniert werden immer Bild 
l und Bild 2. Sie können jedes Bild mit 
einem anderen den Platz tauschen las- 
sen und es dadurch auf den gewünsch- 
ten Platz holen: <fl> (im Ziffern- 
block) macht das gerade gezeigte Bild 
zum Bild 1, <f2> zum Bild 2; ein 
Bild, das Sie nicht mehr benötigen, 
tauscht durch <f4> mit Bild 4 den 
Platz und wird bei der nächsten Über- 


ZZ —_—  —Z——— —hb 


nahme eines Ergebnisses gelöscht. Se- 
hen Sie während des Arbeitens häufi- 
ger nach, ob nicht auf Platz 4 ein Bild 
steht, das Sie noch benötigen; das kön- 
nen Sie dann retten, indem Sie es wei- 
ter nach vorne holen. Mit <COPY> 
wird Option 2 abgebrochen; hinter dem 
Menü erscheint Bild I (inden MODE 2 
versetzt). 


Option 3 — 7: 

Kombinieren, Speichern 

Hier ist alles beim alten geblieben, mit 
der Ausnahme, daß nach dem Kombi- 
nieren noch beide Ausgangsbilder zum 
Weiterarbeiten zur Verfügung stehen. 


Option 8: Konvertieren 

Hier wurde eine Wiederholfunktion 
eingebaut, die grafisch hochinteressan- 
te Strukturen erzeugen kann. Probieren 
Sie das an einem neuen Bild aus, dem 
“tanzenden Zirkusdirektor“: 


10 'Der tanzende Zirkusdirektor 

20 MODE 2:DEG:ORIGIN 320,150 

30 GRAPHICS PAPER 1:CLG:GRAPHICS PEN O0 
60 dr=75:fx=1:rx=190:ry=100:w1=0: 
w2=360:G0SUB 120 

70 fx=-1:ry=100:G0SUB 120 

80 dr=50:fx=1:rx=190:ry=120:w1=10:w2 
=105:GC0SUB 120 

90 fx=-1:ry=120:G0SUB 120 

100 ORIGIN 0,0:FILLO 

110 CALL &BB18:GRAPHICS PEN 1:GRAPHICS 
PAPER 0: END 

120 FOR w=w1 TO w2 STEP 5 

130 x=rx#C0S(w)13:yzry#SIN(w)t3 

140 x=X+y#SIN(w) :y=y+x%CoS(w) 

150 xx=x#C0S(dr)-y*SIN(dr): 
y=X%SIN(dr)+y*C0S(dr) 

160 xexx#fx 

170 IF w=w1 THEN PLOT x,y ELSE DRAW x,y 
180 NEXT w: RETURN 


Die apart verschlungene Kurve, die 
diese Grafik aufbaut, ist eine Variation 
der Bogenraute (Heft 7/89), die ledig- 
lich durch die Zufügung der Sinus- und 
Cosinusfaktoren in Zeile 140 entsteht 
(lassen Sie das Programm einmal ohne 
diese Zeile laufen!). Laden Sie nun die- 
ses Bild in den MULTISCREEN und 
konvertieren Sie es nach XOR. Wenn 
Sie nun immer von neuem RETURN 
drücken, wird das Konvertieren wie- 
derholt, und eine Grafik mit jedesmal 
anderer Struktur wächst in die Höhe. 
Besonders interessant sind die Ergeb- 
nisse z.B. nach dem 13., 24. oder 30. 
Konvertieren. Das Ausgangsbild bleibt 
als Bild 2 im Speicher. Kombinieren 
Sie dieses Ausgangsbild mit dem End- 
ergebnis nach AND (Bild 1)! Versu- 
chen Sie das wiederholte Konvertieren 
auch einmal mit der “Schachfigur“ 
(Heft 8/89), da sind die Ergebnisse be- 
sonders interessant. 





Software für CPC und Joyce 























Preiswerte Software für Amstrad-CPC und 
Joyce mit deutschen Handbuch - so machen 
diese Super-Programme richtig Spaß! 


WS-TUNER für WordStar * 


Vergessen Sie alles, was Sie bisher über 
WordStar-Erweiterungen erfahren haben! 
Endlich können Sie Dateien per Cursor- 
tasten auswählen, dic Tasten frei belegen, 
Textbausteine verwalten, neue WordStar- 
Befehle definieren, Textlöschungen rück- 
gängig machen, Steuerzeichen invers an- 
zeigen lassen, zwischendurch andere Text- 
dateien ansehen, drucken ohne zwischen- 
zuspeichern, stets freie Diskettenkapazi- 
tät und Textlänge ermitteln und, und, und ... 


Nur DM 49,80 
(unverbindliche Preisempfehlung) 


Option 10: Ausfüllen 

Neben den verschiedenen Füllfunktio- 
nen (normales Ausfüllen: <f>; Fül- 
len mit Bufferbegrenzung: <CON- 
TROL>+<f>; unterbrechbares 
Ausfüllen: <SHIFT>+<f>, dann 
zweimaliges <ESC> und <Leerta- 
ste>) wurde eine Funktion zum Li- 
nienziehen in alle Richtungen inte- 
griert, mit der Sie lückenhafte Umrißli- 
nien schließen, aber auch in einer Gra- 
fik da und dort Einzelheiten hinzufügen 
können. Sie erreichen diese Funktion, 
indem Sie zusätzlich zur jeweiligen 
Cursortaste <CONTROL> drücken. 


Option 11 — 17 sind unverändert ge- 
blieben. Großes Buch der Public Domain-Software 

Alles was Sie über deutsche PD-Software 
wissen müssen, finden Sie in diesem Buch, 

Zusätzlich die deutschen Dokumentationen 
zu den Disks 1-6, 8 und 10-12. Ideale Fund- 
grube für Computerterfans! Mit Rabattcou- 
pons für unsere Software! Nur DM 34,80 


Neu: Diskette 18 - MacroPack/Z80 


aa De speoerämmjerung für Einsteiger 
und Profis - -Makroassembler mit Iink- 
fähigem Code, Linker, Debugger und Editor. 


Option 18: Rastern 

Hier ist die Möglichkeit dazugekom- 
men, mit einem selbstdefinierten Ra- 
ster zu arbeiten, der auch im XOR- und 
OR-Modus über das Bild gelegt wer- 
den kann, was gelegentlich zu sehr ei- 
genartigen Wirkungen führt. Die Mas- 
ke wird in binärer Form eingegeben, 
das heißt, für jeden gesetzten Punkt 
eine 1, für jeden leeren eine 0, aber im- 
mer nur 8 Punkte pro Maske. Da sind, 
mit bis zu zehn Zeilen, die abenteuer- 
lichsten Muster möglich. 

An einem Beispiel sei gezeigt, wie sich 
durch solches Rastern auch nur Teile 
eines Bildes strukturieren lassen, um 
eine bestimmte Wirkung zu erzielen. 
Nehmen Sie dafür das folgende kurze 
Programm, das allerdings schon einige 
Zeit braucht, um in das Sternenfeld 
sein Brunnenloch zu zeichnen: 















1- JRT-Pascal mit 64K-Strings, Overlays * 
2- Z80-Assembler, Linker, Debugger 

4- Compiler Small-C: Fließkommazahlen * 
5- Forth-83: Multitasking, Assembler ... 

6- Utilities: Diskmonitor, Dateiretter ... 
10- BizBasic - CPC-Basic-Erweiterung 

11- E-Basic - CBasic-kompatibler Compiler 
12- Für Turbo Pascal: INLINER, Grafi 

15- WordStar-Utilities: Fußnoten, Index * 
17- C-Interpreter - interaktiv C lernen * 

19- Telekommunikation mit MEX 


* auf dem CPC-464/664 nur mit Speicher- 
erweiterung (64K genügen). 


Der Preis? Nur 30,- Mark pro Diskette! 
(unverbindliche Preisempfehlung) 













10 'Sternenbrunnen 

20 MODE 1:PRINT CHRS(23)CHRS(1) :DEG: TAG 
30 a=0:b=0:f=1.002:n=860 

40 r=50:u=1:w=13:G0SUB 90 

50 TAGOFF: PRINT CHR$(23)CHR$(O) :TAG 

60 £=1.0013:n=332:4=-3:G0SUB 90 

70 u=-1:G0SUB 90:w=3:G0SUB 90 

80 CALL &BB18:END 

90 ORIGIN 320+8,200+b:x=r:yer 

100 FOR 1=1 TO n:MOVE -y*u,x: PRINT 
CHR$(88) ; 

110 xx=xX00S(w)-yXSIN(w): 
y=x#SIN(w)+yXC0S(w) 

120 x=xx#P:y=yAf:NEXT 1:RETURN 

Ein eindrucksvolles Bild; aber man- 
chem mag dieser Sternenhintergrund 
zu starr regelmäßig sein. Da hilft das 
Rastern! Gehen Sie dazu folgenderma- 
Ben vor. Fügen Sie zunächst als Zeile 
45 ein: 

45 SAVEUBRUNNEN1.BIN®,B,49152,16384: 
END 

Dieses Bild “*BRUNNENI“ rastern 
Sie senkrecht über AND mit 3 Raster- 
zeilen und den Masken 11001111, 
00111111, 01101111. Das Ergebnis 











Unser Kombi-Angebot: 


Eine beliebige der obigen Disketten 1-19 
und neun 3-Zoll-Disketten von Maxell für 
nur 79 Mark! Oder: WS-TUNER und neun 
3-Zöller von Maxell für nur DM 99,80! 








3-Zoll oder Vortex-Format. Lieferung per 
Nachnahme oder Vorauskasse, Ausland: 
nur Vorauskasse. 


MARTIN KOTULLA 


Grabbestraße 9, 8500 Nürnberg 90 
Telefon 09 11/30 33 33 


Weitere Bezugsquellen: 


Firma Simon, 4600 Dortmund 1, Tel. 0231/511370 
Mükra, 1000 Berlin 42, Tel. 030/7529150 

Firma Becker, 6690 St. Wendel 8, Tel. 06856/504 
Computerstore, 8500 Nürnberg, Tel. 0911 28 
Hochholzer, Markt Indersdorf, Tel. 1386/1625 
Weeske, 7150 Backnang, Tel. 07191 [8 

Fritz Obermeier, 4972 Löhne 1, Tel. 05732/3246 
Gisbert Denz, 4784 Rüthen 2, Telefon 0 2/58040 
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Brunnen im Sternenacker 


speichern Sie mit Option 6 als 
“BRUNNEN2.BIN“. 


Nehmen Sie nun das ursprüngliche 
“Brunnen“-Programm, fügen als Zeile 
25 ein: 

LOAD“BRUNNEN2“ und löschen Sie 
in Zeile 40 den Befehl GOSUB 90. So 
erhalten Sie das plastisch wirkende 
Bild eines Brunnenlochs auf einem fur- 
chendurchzogenen Ackerfeld (Bild 2). 


Konstruieren Sie sich auch einmal 
kompliziertere Rastermuster; legen Sie 
z.B. über die “Schachfigur“ (Heft 
8/89) waagrecht das folgende aparte 
zehnzeilige Muster: 


10001000, 01000100, 00100010, 
00100010, 01010101, 10001000, 
01100110, 10000001, 01000010, 
00101000. 


Option 19: Verzerren 

Im MULTISCREEN 6128 sind Ver- 
zerrungen von 92 bis 128 möglich; 
aber auch innerhalb dieser Grenzen 
kann es bei den niedrigeren Werten 
(die besonders aparte Ergebnisse lie- 
fern!) je nach dem Speicherzustand Ih- 
res CPC nach längerem Arbeiten gele- 
gentlich zu einem Absturz kommen. 
Die Abhilfe ist einfach: Machen Sie ei- 
nen Reset, oder schlimmstenfalls 
schalten Sie den CPC (nicht den Moni- 
tor!) ganz kurz aus, starten sie dann das 
MULTISCREEN-Programm von neu- 
em -und siehe da, alle vier Bilder sind 
nach wie vor vorhanden! Sie sind reset- 
fest im Speicher abgelegt und überle- 
ben sogar ein kurzzeitiges Abschalten 
des Stroms. Sie müssen jetzt nur noch 
gegebenenfalls den MODE im Direkt- 
modus neu einstellen (zum Beispiel m 
= 1) und das Bild 1 auch wieder in den 
Verarbeitungsspeicher holen, indem 
Sie Option 2 wählen und hintereinan- 
der <f2> und <fl> drücken. Schon 
können Sie weiterarbeiten, ohne daß 
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ein Bild verlorengegangen wäre, und 
der Verzerrfaktor, der vorhin beim 
schon etwas erschöpften CPC zum Ab- 
sturz geführt hatte, arbeitet unmittelbar 
nach dem Reset einwandfrei. 


Option 20: Rahmen 

Ein schönes Bild braucht auch einen 
Rahmen! Mit <fl> können Sie ihn 
um das Bild legen, dicker oder dünner, 
je nachdem, wie oft Sie <fl> 
drücken. Und mit <fÜ> wird ein 
schwarzer Rahmen gezeichnet. Die 
Abfolge <fl>, <fl>, <f0>, 
<fl> ergibt oft die beste Wirkung. 


Als Abschluß zeigen wir eine Grafik, 
die lediglich aus der “Schachfigur“ 
entwickelt wurde, durch Konvertieren, 
Kombinieren und Rastern, ohne daß 
nach dem Einladen des Ausgangsbildes 
noch das Laufwerk nötig gewesen wäre 
(Bild 3). 


Option 21: Drucken 

Auch für eine Druckroutine ist jetzt 
noch Platz im Speicher! Sie können die 
Hardcopy-Routine, mit der Sie übli- 


cherweise arbeiten, ab Adresse &8526 
ablegen; der Aufruf dafür muß im Pro- 
gramm ab Zeile 930 stehen. Wie er 
aussieht, hängt natürlich ganz von der 


“ verwendeten Routine ab. Wie haben ab 


Zeile 930 eine Befehlsfolge eingebaut, 
mit der Sie die Druckroutine des mehr- 
fach erwähnten im DMV-Verlag er- 
schienenen COPYSHOP-Programms 
aufrufen können. Diese Routine läßt 
sich an jede beliebige Speicherstelle 
schieben (das Handbuch gibt nähere 
Anweisungen dazu); sie erlaubt den 
Ausdruck in verschiedenen Formaten 
und mit einer Vielzahl von Rastern für 
jeden PEN. Die Rastermasken können 
Sie, durch Komma getrennt, nach dem 
gleichen Schema wie bei unserer Ra- 
ster-Option als Binärzahlen (mit vorge- 
setztem &X) oder als Dezimalzahlen 
eingeben. So können Sie, ohne das 
Programm wechseln zu müssen, mitten 
aus der Arbeit mit MULTISCREEN 
heraus interessante Ergebnisse aus- 
drucken und dann weiterarbeiten. 


Daneben ist noch für manches andere 
Platz frei — bis &A1FF! Sie können 
sich zum Beispiel das hochinteressante 
G-Basic (erschienen im Sonderheft 
5/87), das ab &9000 stehen muß, einla- 
den und vom Hauptprogramm aus sei- 
ne vielfältigen Möglichkeiten aufrufen 
(Vergrößern, Verkleinern, Drehungen 
und Verzerrungen jeglicher Art). 


Das Zauberreich der Grafik ist groß; 
weit größer, als es in dieser Serie ange- 
deutet werden konnte. Wir wünschen 
Ihnen viel Glück bei Ihren Ent- 
deckungsfahrten! 


(Friedrich Belzner/cd) 
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1 REM Listing nur fuer den CPC 6128 

60 IF PEEK(&A209)<>&ED THEN LOAD"MSCREI2B. 
BIN", &A200 

65 IF PEEK(&800A)<>&4E THEN LOAD"bankman.b 
in",&8000:CALL &8000 

158 PRINT"(20) Rahmen ":PRINT"(21) Drucken 


200 MODE m 

201 FOR i=2 TO 5:}SCREENCOPY,1,1:LOCATE 1, 
1:PRINT i-1 

202 IF INKEY(9)=0 THEN 110 

203 IF INKEY(13)=0 THEN CLEAR INPUT: |SCREE 

NSWAP,1,2: 1 SCREENCOPY,1,2:CALL b:GOTO 201 

204 IF INKEY(14)=0 THEN CLEAR INPUT: }SCREE 

NSWAP,1,3:LOCATE 2,1:PRINT"2":IF i=2 THEN 
ISCREENCOPY,1,2:CALL 6b:GOTO 208 

205 IF INKEY(20)=0 THEN CLEAR INPUT: | SCREE 

NSWAP,1,5:IF i=2 THEN ISCREENCOPY,1,2:CALL 
b:LOCATE 2,1:PRINT"ı1” ELSE LOCATE 2,1:PRI 

NT"4" 

207 IF INKEY(47)=0 THEN CLEAR INPUT:GOTO 2 

08 ELSE 202 

208 NEXT:GOTO 201 

210 MODE m:CALL s:POKE &A22B,&86: !SCREENCO 

PY,1,3:CALL K:GOTO 250 

220 MODE m:CALL s:POKE &A22B,8&A6: | SCREENCO 
PY,1,3:CALL k:GOTO 250 

230 MODE m:CALL s:POKE &A22B,&AE: }SCREENCO 
PY,1,3:CALL K:GOTO 250 

250 CALL w: ıSCREENCOPY,5,4: | SCREENCOPY,4,3 
21 SCREENCOPY, 3,2: |SCREENCOPY,2,1:CALL b:CL 
EAR INPUT:GOTO 110 

300 MODE m:ı SCREENCOPY,1,2:CALL b 

310 CALL h:CALL k 

315 IF INKEY(18)=0 THEN CALL b:GOTO 310 EL 
SE IF INKEY(47)=0 THEN CLEAR INPUT:GOTO 25 

[e) 

317 GOTO 315 

400 IF INKEY(1)=128 THEN TAGOFF: 
PRINT CHR$(2I)CHRE(O): PLOT x,y: 
T CHR$(23)CHR$(1);:TAG 

401 IF INKEY(8)=128 THEN TAGOFF:; 
:PRINT CHR$S(23)CHRS(O):PLOT x,y: 

T CHR$(23)CHR$(1);:TAG 

402 IF INKEY(O)=128 THEN TAGOFF: 
:PRINT CHR$(23)CHR$(O):PLOT x,y: 
T CHR$(23)CHR$(1);:TAG 

403 IF INKEY(2)=128 THEN TAGOFF:LOCATE 1,1 
:PRINT CHR$(23)CHR$(O): PLOT x,y:y=y-2:PRIN 
T CHR$(23)CHR$(1);:TAG 

730 MODE m:CALL s:INPUT"Raster eng (1) - w 
eit (2) - selbstdefiniert (3) : "‚ra:CAlLl 
s:PRINT CHR$(23)CHR$(2):ON ra GOTO 740,77 
0,786 

785 ıSCREENCOPY,1,2:CALL b 

786 INPUT"Waagrecht (1) oder senkrecht (2) 
? "ws: INPUT"Rasterfarbe: ",‚rf:GRAPHICS pP 
EN rf:INPUT"Zahl der Rasterzeilen (1-10) 


LOCATE 1,1 
x=X+u:PRIN 


LOCATE 1,1 
x=X-u:PRIN 


LOCATE 1,1 
y=y+2:PRIN 


FATz 
788 FOR i=1 TO rz:PRINT 1; :PRINT”." ;: INPUT 
" Maske: ",ms$:m(i)=VAL("AX"+ms$):NEXT { 


789 INPUT"XOR (1) - AND (2) - OR (3) ? ",r 

m:CALL s:PRINT CHR$(23)CHR$(rm):ON ws GOTO 
790,791 

790 ORIGIN 0,0:FOR y=-2 TO 397 STEP rz*s2:F 

OR i=1 TO rz:MASK m(1):MOVvE O,y+2ri:DRAW 6 

40, y+2#i1:NEXT i:MASK 255:1=1:NEXT y:GOTO 8 

40 

791 ORIGIN 0,0:FOR x=-1 TO 638 STEP rz:FOR 
i=1 TO rz:MASK m(i):MOVE x+1,0:DRAW x+1,3 

99:NEXT 1:MASK 255:i=1:NEXT x:G0TO 840 

793 IF INKEY(S0)=0 THEN CLEAR INPUT:CALL b 
:LOCATE 1,2:G0T0 786 

794 IF INKEY(47)=0 THEN GRAPHICS PEN 1:PRI 

NT CHR$(23)CHR$(0):GOTO 250 

796 GOTO 793 

800 MODE m:CALL s:INPUT"Verzerrfaktor (92- 
128): ",vf 

810 !SCREENCOPY,1,2:POKE BASBB,vf:CALL ssp 
:CALL &A5B9:CALL s:GOTO 250 

820 MODE m:CALL 8:x1=0:xr=639:yu=0:y0=399: 

IF m=2 THEN xv=1 ELSE IF m=1 THEN xv=2 ELS 

E xv=4 

830 IF INKEY(13)=0 THEN GRAPHICS PEN 1:G0OS 

UB 890 


840 IF INKEY(14)=0 THEN GRAPHICS PEN 2:608$ 
UB 890 
850 IF INKEY(5)=0 THEN GRAPHICS PEN 3:G0SU 
8 890 

Listing MULTISCREEN 





[1849] 
[3482] 


[4100] 
[2411] 


[382] 
(2413) 


[679] 
[2306] 


(5052) 


[10267] 


[1042] 


(966) 
[3574] 


[4076) 
[4033] 
[6965] 
[1506] 


[752] 
[4645] 


[505] 
[5690] 


[6700] 


(5331) 


[7627] 


(8048) 


(1359) 
[9651] 


[4773] 


[3232] 


(8762) 


[6483] 


[2574] 
(5142) 


[412] 
(3526) 


[5072] 


[4545] 


(3574) 
[1613) 


(1344) 





















860 IF INKEY(15)=0 THEN GRAPHICS PEN 0:G08$ [2582] 
UB 890 

870 IF INKEY(47)=0 THEN 250 (672) 
880 CALL w:GOTO 830 [311) 
890 MOVE x],yu:DRAW x1,yo:DRAW xr,yo:DRAW [7465] 
*xrıyusDRAW x1,yu:IF m=2 THEN x1I=xl+xvixrex 
r=xv:MOVE x1,yu:DRAW x1,yo:MOVE xr,yu:DRAW 

xr,yo 

900 IF m=0 THEN yu=syut2:yo=yo-2:MOVE x1,yu [4959] 
:DRAW xr,yu:MOVE x1,yo:DRAW xr,yo 

910 xl=ax]+xVixrexr-xviyusyut2:yo=yo-2:RETU [3778] 
RN 

920 MODE m: }SCREENCOPY,1,2 [939] 
925 PRINT"Zuerst Druckroutine installieren [6137] 
- s. Begleittext!":SToP 

930 ON m+1 GOTO 940,950,960 [1180] 
940 INPUT"Format, PEN O0 - 15: ",f,p0,pl,p2 [6407] 
‚P3,P4,P5,P6,P7,p8,p9,plO,plil,p12,p13,pl&, 
p15:GOTO 970 

950 INPUT"Format, PEN 0 - 3: "‚f,poO,pl,p2, [2497] 
P3:GOTO 970 

960 INPUT"Format, PEN 0, PEN 1: ",f,poO,pl [2640] 
970 ISCREENCOPY,1,2:CALL &8526,f,po,pl,p2, [5018] 






P3,P4,P5,P6,P7,p8,p9,pl0,pl1,pl2,pl3,pl4,p 
15:G0T0 ı10 











10 ' PEN- und Byte-Manipulationen - DATA-L 
ader (Listing 2) 

15 REM Fuer den CPC 464,664,6128 

20 DATA 06,00,16,02,21,00,c0,3e,00,cb,46,2 
8,02,cb,c7,cb,66,28,02,cb,cf,b8,20,14,cb,4 
2,20,04,cb,86,18,02,cb,c6,cb,4a,20,04,cb,a 
6,18,02,cb,e6,3e,00,cb,4e,28,02,cb,c7,cb,6 
e,28,02,cb,cf,b8,20,14,cb,42,20,04,cb,8e,1 
8,02,cb,ce,cb,48,20,04,cb,ae 

30 DATA 18,02,cb,ee,3e,00,cb,56,28,02,cb,c 
7,c6,76,28,02,cb,cf,b8,20,14,cb,42,20,04,c 
6,96,18,02,cb,d6,cb,48,20,04,cb,b6,18,02,c 
b,f6,3e,00,cb,5e,28,02,cb,c7,cb, 7e,28,02,c 
b,cf,b8,20,14,cb,42,20,04,cb,9e,18,02,cb,d 
e,cb,48,20,04,cb,be,18,02,cb 

40 DATA fe,23,3e,00,bc,c2,fc,a4,c9 

50 DATA 9e,00,21,00,c0,4e,cb,09,71,23,bc,2 
0,f8,c9 

60 DATA 21,00,c0,06,00,3e,ff,4e,b9,20,01,7 
0,23,3e,00,bc,20,f3,c9 

70 DATA 21,80,61,e5,11,00,c0,06,50,1a,77,1 
3,23,10,fa,ba,28,0b,e1,06,50,2b,10,fd,e5,0 
6,50,18,ec,e1,c9 

80 FOR x=&A4F5 TO BASD7:READ a$: POKE x,VAL 
("&"+a$): NEXT 

90 SAVE"PENBYTES.BIN",b,&A4F5,&E3 


[2797] 







[1803] 
[10541] 









[11527] 








[1276] 
[1332] 







[2124] 






[4047] 







[5384] 









[783] 






5 ' Datalader fuer MULTISCREEN-6128 (=DATA 
6128.8AS) 

60 FOR x=&A200 TO &A2FS:READ a$:POKE x, VAL 
("&"+a$): NEXT 

70 DATA 21,00,c0,11,00,40,01,00,40,ed,bO,c 
9,21,00,40,11 

80 DATA 00,c0,01,00,40,ed,b0,c9,21,00,62,1 
1,00,c0,01,00 

90 DATA 40,ed,60,c9,21,00,c0,11,00,40,1a,b 
6,77,13,23,3e 

100 DATA 00,6c,20,f6,c9,21,00,22,11,00,62, 
01,00,40,ed,b0O,c9 

260 DATA 0e,50,21,00,c0,e5,06,c7,e5,cd,26, 
bc,7e,d1,12,10,f7,0d,3e,00,b9,28,05,e1,23, 
e5,i8,ea,el,c9 

310 DATA dd,6e,00,4d,66,01,dd,5e,02,dd,56, 
03,dd,7e,04,cd,52,bd,c9 

470 DATA 21,00,0C0,11,80,ff,06,64,c5,e5,d5, 
06,50, 7e,f5,18,77,f1,12,23,13,10,f6,dl,eb, 
ced,29,bc,eb,el,cd,26,bc,c1,10,e4,c9 

490 DATA 21,cf,7f,11,00,cC0,01,30,c0,cb,46, 
28,04,cb,ff,18,02,cb,bf,cb,4e,28,04,cb,f7, 
18,02,cb,b7,cb,56,28,04,cb,ef,18,02,cb,af, 
cb,5e,28,04,cb,e7,18,02,cb,a7,cb,66,28,04, 
cb,df,18,02,cb,9f,cb,6e,28,04,cb,d7,18,02, 
cb,97,cb,76,28,04,cb,cf,18,02,cb,8f,cb,7e, 
28 

500 DATA 04,cb,c7,18,02,cb,87,12,13,2b,03, 
3e,00,68,20,a7,c9 

1000 SAVE"MSCR6128.BIN",8,&A200,&FA 


(3054) 







[4807] 






(2063) 






(1974) 






[1652] 






(3145) 





[3444) 






[3533] 





[5667] 







(14933) 









[2733] 






[1471] 
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Super Trux 


Hersteller: Elite 

Vertrieb: Fachhandel 

Steuerung: Joystick/Tastatur 

Preis: zirka 35 bis 50 DM (Cass./Disk) 


CPC 464 XI CPC 664 X CPC 6128 X 


Neun europäische Metropolen haben 
sich zusammengetan, um den schnell- 
sten Brummi-Fahrer zu ermitteln. Es 
geht um ein Rennen quer durch Euro- 
pa, an dem sich alle Besitzer von Drei- 
Bigtonnern beteiligen können. Zu ge- 
winnen ist dabei die Supertrux-Tro- 
phäe, die unter den schnellen LKW- 
Fahrern als der begehrteste Preis gilt. 
Die Reise führt durch Städte mit so 
klangvollen Namen wie Rom, Athen, 
Paris und London. 


In der letztgenannten Stadt beginnt 
dann auch die Jagd nach der Trophäe, 
nach Ruhm und Geld. So nehmen Sie 
hinter dem Steuer Ihrer Zugmaschine 
Platz und jagen den Sehenswürdigkei- 
ten Europas entgegen, die Sie aller- 
dings nur wenig bewundern können; 
dazu sind Sie zu sehr mit der Steuerung 
des LKWs beschäftigt. 


Berg- und Talfahrt 


In Supertrux blicken Sie wie durch die 
Windschutzscheibe eines Ihrem LKW 
folgenden Wagens auf die Strecke, die 
sich Ihnen entgegenwindet. Die 
Strecke ist übersäht mit Fahrzeugen, 
Schlaglöchern oder Baustellenbegren- 
zungen, deren Kontakt tunlichst ver- 
mieden werden sollte. Besonders inter- 
essant wird Supertrux durch die Be- 
rücksichtigung von Berg- und Tal- 
strecken. Befinden Sie sich gerade an 
einer Steigung, so ist es Ihnen nicht 
möglich, die Szenerie hinter dem Berg 
zu beobachten, was zu unangenehmen 
Folgen führen kann. Ihre Mitkonkur- 
renten oder diverse Hindernisse wer- 
den erst im letzten Moment wahrge- 
nommem, so daß Kollisionen manch- 
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Bildschirmforo: 
Super Trux 


Eine rasante Reise 
quer durch Europa 
erwartet Sie im Cock- 
pit Ihres Dreißig- 
tonners 


mal nicht vermieden werden können. 
Diese führen nicht unweigerlich zum 
Stillstand und somit zu ärgerlichen 
Zeitverlusten, sondern dazu, daß Ihr 
LKW ins Schleudern gerät. Mit etwas 
Geschick ist man oft in der Lage, das 
Fahrzeug wieder in die Gewalt zu be- 
kommen. 


Bei der Steuerung kamen die Program- 
mierer den Spielern entgegen, nahmen 
sie doch dem LKW das Schaltgetriebe 
und bauten ihm eine Automatik ein. So 
bleibt dem Fahrer das lästige Hin- und 
Hergeschalte durch die zahlreichen 
Gänge eines Lastkraftwagens erspart. 


Zeit ist Geld 


Die Zeit steht bei Super Trux im Mit- 
telpunkt. Jede Teilstrecke muß in einer 
bestimmten Zeit durchfahren werden. 
Schafft es der Spieler, diese Zeit einzu- 
halten, so gelangt er in die nächste 
Stadt und kann das Rennen fortführen. 
Schafft er es nicht, so ist das Spiel zu 
Ende, und der Spieler kann seine Hoff- 
nungen auf die Trophäe begraben. 


Die Hilfe, die das Programm dem Spie- 
ler zur Verfügung stellt, besteht aus ei- 
ner Anzeige, die über die Richtung der 
nächsten Kurve, über eventuell kom- 
mende Hindernisse oder ähnliches auf- 
klärt. Desweiteren können jederzeit 
Angaben über Gesamtzeit, Geschwin- 
digkeit und Punktezahl eingesehen 
werden. 


Die grafische Darstellung ist für CPC- 
Verhältnisse außerordentlich gut ge- 
lungen. Die scrollenden Hintergründe 
zeigen die jeweiligen Wahrzeichen der 
Städte, die gerade durchfahren wer- 
den. Sie sind es wert, einmal genauer 





betrachtet zu werden, obgleich das bei 
dem Tempo, in dem man seinen Drei- 
ßBigtonner durch die Lande jagt, nicht 
immer einfach ist. 


Rasantes Brummirennen 


Supertrux gehört sicherlich zu den gu- 
ten Neuerscheinungen für den CPC. 
Das Programm bietet ein wirklich ra- 
santes Rennen durch die Metropolen 
Europas. Zwei kleine Wehmutstropfen 
sollen dennoch nicht verschwiegen 
werden. Zum einen ist die Steuerung 
ein wenig träge, was den Fahrer zu ei- 
ner sehr voraussichtigen Fahrweise 
zwingt. 


Benungr Dom Garn Sur Prew 
treunchäet mantaton 





























Der zweite Kritikpunkt betrifft die feh- 


lende Continue-Funktion. Hat man 
eine Qualifikation nicht geschafft, so 
ist man gezwungen, immer wieder 
beim ersten Level zu beginnen. So 
kann es mitunter lange dauern, bis man 
beispielsweise Rom gesehen hat; und 
das, obwohl bekanntlich alle Wege 
dorthin führen. 


Wie sich der Spieler die Strecke bis 
zum Ziel einteilt, bleibt ihm mit gewis- 
sen Einschränkungen selber überlas- 
sen. Ein dem Programm beigefügter 
Streckenplan gibt ihm darüber Aus- 
kunft, welche Abzweigungen in wel- 
che Städte führen. 


(N) 


Zu Tu bach 


Vigilante 


Hersteller: U.S Gold 
Vertrieb: Fachhandel 
Steuerung: Joystick/Tastatur 
Preis: 34,95 DM (Kass.) 
49,95 DM (Disk.) 


CPC 464 X} CPC 664 X CPC 6128 X 


Die Bürgerwehr muß wieder her 


New York im Jahre 1994: Eine kom- 
plette Stadt ist außer Kontrolle geraten. 
Das Chaos regiert, wo einst Gesetz und 
Ordnung herrschte. Längst hat sich die 
Polizei in sicheren Gebäuden ver- 
schanzt und fährt aus Angst keine Strei- 
fe mehr. Die Armee ist machtlos und 
hat keine Möglichkeiten mehr, die 
Lage in den Griff zu bekommen. 


Die Stadt wird von Straßenbanden ter- 
rorisiert, die kein Pardon kennen. Sie 
setzen mit Gewalt alles durch, was sie 
wollen. Die letzte Schreckensmeldung 
deutete daraufhin, daß eine Bande von 
Skinheads Madonna verschleppt und 
als Geisel genommen haben. 


Die letzte Chance ist die Bürgerwehr. 
Hinter diesem Namen verbirgt sich na- 
türlich ein patenter Grobian, der es mit 
allem aufnimmt, was sich ihm in den 
Weg stellt. Ebenso brutal, wie die Stra- 
Benbanden vorgehend, macht sich der 
Kraftprotz auf den Weg, Madonna zu 
befreien. Es ist ein harter Weg, den er 
vor sich hat, da die Bandenmitglieder 
ihn mit schlagfertigen Argumenten von 
seiner Mission abhalten wollen. 


Des Retters glorreiche Rolle 


In Vigilante schlüpfen Sie in die Rolle 
des Retters. Vor verschiedenen Hinter- 
grundszenarien kämpfen Sie mit allen 
Gliedmaßen, die Sie besitzen, gegen 
Horden von brutalen Gang-Mitglie- 
dern. 


Sie steuern die Figur per Joystick oder 
Tastatur durch den jeweiligen Level. 
Die Belegung entspricht dabei der gän- 
gigen Art und Weise. Die Richtungen 
des Joysticks sind dabei mit verschie- 
denen Schlagarten gekoppelt. 


Drückt man auf den Feuerknopf, so än- 
dert sich die Belegung, und eine weite- 
re Palette von schlägerischen Aktionen 
steht dem Retter New Yorks zur Verfü- 
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Bildschirmfoto: Vigilante 


Prügeln, mal mit 
Fäusten, mal mit 
Schlaggeräten, das 
ist das Spielprinzip 
von Vigilante 


gung. Es dauert seine Zeit, bis der 
Spieler all diese Funktionen be- 
herrscht, so daß zu Beginn ein eher zu- 
fälliges “Drauflosschlagen*“ auf der 
Tagesordnung steht als ein gezieltes 
Kämpfen. 


Unser Held hat sieben verschiedene 
Schlag- und Trittvarianten zur Verfü- 
gung. Zu Beginn hat er sich mit diesen 
asiatisch angehauchten Techniken zu 
begnügen. Im Verlaufe des Spiels fin- 
det man dann schon mal Waffen, mit 
denen die Gegner schneller zu Boden 
gebracht werden können. Diese Waf- 
fen liegen meist unscheinbar auf der 
Straße herum. Man muß schon genau 
darauf achten, um nicht an ihnen vor- 
beizurennen, denn ein Zurück gibt es 
bei Vigilante nicht. Das zu erreichende 
Ziel ist irgendwo abseits der rechten 
Bildschirmseite zu finden. Unser Held 
ist dorthin zu führen, ohne daß er vor- 
her durch Tritte, Schläge und Wurfge- 
schosse allzusehr verletzt wird. Außer- 
dem besteht jeweils ein Zeitlimit. 


Der Weg zur Rettung ist gepflastert mit 
übelsten Gesellen, die im besten Falle 
mit der Faust kämpfen. 


Die Gegner kommen von vorn und von 
hinten und sind in der Fortbewegung 
stets schneller als unser Kämpfer, Das 
hat zur Folge, daß dieser nie Zeit zur 
Ruhe findet und zusätzlich reichlich 
Schwierigkeiten hat, sich Meter für 
Meter vorzuarbeiten. 


Bunte Bilder, 
ruckelige Animation 


Vigilante bietet bunte Bilder und rela- 
tiv große Sprites. Die Animation geht 
etwas ruckartig vonstatten und paßt 





sich so dem Scrolling des Hintergrun- 
des an. Dieses ist alles andere als flie- 
Bend zu nennen. Die ansonsten recht 
nett gezeichneten Grafiken verlieren so 
an Qualität. 


Vigilante ist ein äußerst schleppendes 
Spiel. Es kommen derart viele Gegner, 
daß man nur sehr schwer von der Stelle 
kommt. Da Kontrahenten schneller 
sind als die eigene Spielfigur hat der 
Spieler auch keine Möglichkeiten dem 
einen oder anderen Kampf aus dem 
Wege zu gehen. 


“ Besonders schlimm sind Gegner, die 


mit Wurfgeschossen oder anderen 
Waffen ausgerüstet sind. Steckt man 
von diesen Treffer ein, so ist schnell ei- 
nes der drei Leben verloren. Das zu- 
sätzliche Zeitlimit sorgt dafür, daß der 
Spieler bei Vigilante in heftige Panik 
geraten kann. 


Soeioee Besen Doms Grat Sard Press 


keunichuet mantason Leistung 
































Das Programm bietet zwar reichlich 
Kampfszenen, aber wenig Tempo. Die 
Action kommt in Vigilante ein wenig 
zu kurz und das Spielgeschehen wird 
mit der Zeit recht eintönig, so daß das 
Programm insgesamt nicht zu überzeu- 
gen weiß. 


Die Hintergrundstory, die sich letztlich 
mit dem heiklen Thema Selbstjustiz be- 
faßt, ist dann auch nicht geeignet, das 
Spiel in seiner Qualität steigen zu 
lassen. 
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3D-Labyrinth/ 
3D-Light Cycle 


Hersteller: DMV-Verlag 
Vertrieb: DMV-Verlag 
Steuerung: Joystick/Tastatur 
Preis: 53,— DM 


CPC 464 X CPC 664 X CPC 6128 & 


Ein Programmpaket besonderer Art ist 
nun für die CPC-Rechner erhältlich. Es 
enthält die Spiele 3D-Labyrinth und 
3D-Light Cycle. Beide Programme 
sind grafisch so konzipiert, daß sie 
durch die 3D-Brille betrachtet (zwei 
dieser Brillen sind dem Paket beige- 
legt) eine wirkliche räumliche Darstel- 
lung vermitteln. 


Professor Wiewardasdochgleich 


In 3D-Labyrinth geht es um den zer- 
streuten Professor Wiewardasdoch- 
gleich. Dieser arbeitet im Jahre 21 18 
gerade an einer Theorie über die 
Quarks und benötigt dringend die Er- 
gebnisse einer bereits veröffentlichten 
Untersuchung. 


Aufgrund der ungeheuren Mengen von 
Publikationen mußten Planeten einge- 
richtet werden, die als riesige Biblio- 
theken fungieren. Datenschutzgründe 
machten es nötig, daß diesen Planeten 
komplexe Labyrinthsysteme vorge- 
setzt wurden, so daß nicht jede beliebi- 
ge Person sich der Informationen be- 
dienen konnte. Bestückt mit einem 
Kompaß zieht unser Professor nun los, 
die 15 Ebenen des Komplexes zu ent- 
schlüsseln. Geheimnisse und Überra- 
schungen machen ihm dabei das Um- 
herirren nicht einfacher. 


In 3D-Labyrinth übernehmen Sie die 
Rolle des Professors. Sie irren durch 
die Gänge, die in schlichter Strichgra- 
fik gezeichnet wurde. Durch den Ein- 
satz der 3D-Brille wird zwar eine reale 
Räumlichkeit simuliert; doch fehlt dem 
Spiel das i-Tüpfelchen. Hat man sich 
einmal an der Grafik sattgesehen, so 
wird das Spiel schnell etwas langatmig. 
Die Labyrinthe sind zwar groß ange- 
legt und besitzen durch Teleportwände 
und andere Features einen nicht zu 
niedrigen Schwierigkeitsgrad, doch 
reicht das nicht aus. Das Programm 
lebt letztlich mehr von seiner Darstel- 
lung als von der Spielidee und bleibt so 
im Mittelmaß stecken. 


aN Be o’aa 


Bildschirmfoto: 3D-Laby- 
rinth/3D-Light Cycle 


Auf Papier nicht zu 
erkennen, auf dem 
Computer ein Erleb- 
nis: Der 3D-Effekt 


Tron-Clone 


Bei 3D-Cycle handelt es sich um eine 
Weiterführung der bekannten Tron- 
Idee. Zwei Spieler rasen über eine Flä- 
che und hinterlassen dabei eine Ener- 
giespur. Ziel der Kontrahenten ist es 
nun, den Gegner durch geschicktes 
Manövrieren dazu zu zwingen, die ei- 
gene oder die gegnerische Spur zu be- 
rühren, denn das führt unweigerlich 
zum Spielende. 


Diese Idee wurde in 3D-Cycle von der 
Fläche in einen quaderförmigen Raum 
projeziert. Die Spieler versuchen nun, 
sich auf den Wänden und am Boden 
einzukesseln. Dies verlangt von den 
Gegnern einige Konzentration. Die 
räumliche Dartellung und die daraus 
resultierenden Probleme mit der Steue- 
rung vereinfachen das Spiel auch nicht. 


Der Sieg fällt demjenigen zu, der die 
meisten Punkte erspielt. Diese werden 
nach einem Bonusschema errechnet 
und dem zugesprochen, der es schafft, 
den anderen zu überlisten. Der Unter- 
legene einer jeden Runde geht leer aus 
und verliert zusätzlich noch eines sei- 
ner Leben. Das Spiel ist beendet, wenn 
einer der beiden Kontrahenten seinen 
Lebenszähler auf Null heruntergewirt- 
schaftet hat. 


Im Gegensatz zu 3D-Labyrinth ist 3D- 
Cycle kein gemütliches, sondern ein 
ungemein temporeiches Spiel. Die 
räumliche Darstellung weiß in jeder 
Phase des Programms zu überzeugen. 
Das beginnt gleich bei einem toll ge- 
stylten Titelscreen. 


Das Spiel selbst wird dann zu einem 
echten Erlebnis. Man glaubt tatsäch- 
lich, in den Bildschirm fassen zu kön- 
nen. Die Effekte sind schwer zu be- 





schreiben, man muß sie gesehen ha- 
ben. 


Alle CPC-Besitzer, die nicht über ei- 
nen Bunt-Monitor verfügen, sind leider 
nicht in der Lage, die Effekte zu genie- 
ßen. Da für diese Personen die Doppel- 
liniengestaltung, die für den 3D-Effekt 
nötig ist, verwirrend wäre, wurde das 
Programm mit einer Option versehen, 
die das Spiel zurück aus der dritten 
Ebene in die zweite bringt. Diese Op- 
tion wurde bei 3D-Labyrinth leider 
vergessen. 


Eine neue Dimension 


Daß die Idee, ein Spiel zu programmie- 
ren, welches mit Hilfe der bunten 3D- 
Brillen den Spieler in eine echte Räum- 
lichkeit versetzt, erst jetzt ausgeführt 
wurde, ist verwunderlich. Die Effekte, 
die damit erzielt werden, sind umwer- 
fend. Wenn sich in Zukunft die Pro- 
grammierer mit solchen Techniken nä- 
her beschäftigen, ist nur zu wünschen, 
daß sie nicht vor lauter Perspektive die 
Spielideen vergessen. 


Speise Berne Doku» ara zows Preis 
teundichhet mentation 

































Das 


vorliegende 
bringt uns mit einem mäßigen und ei- 
nem guten Vertreter dieser neuen 
Technik erste Eindrücke zu 3D-Com- 
puterspielen. Man darf gespannt sein, 
inwieweit sich diese Art des Spielens 
weiterentwickeln wird. 


Programmpaket 
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CPC-Leckerbissen — \ 
h 2 
4 Artwor® Erweiterung m il 
> Kalkulatlionsprogramm er Al ) Mm 
Kintacher F urbwechse! Ber 


und violos mehr 


Das ist die Software zur PC International |" > 


jeden Monat neu 
DATABOX: 


- mehr als der übliche Softwareservice 


— bringt ergänzend sämtliche Listings der jeweiligen 
Zeitschrift und alle Programmbeispiele auf Kassette 
oder auf 3-Zoll-Diskette. 

— Programme sind, soweit systembedingt möglich, 
auf allen drei CPC-Modellen lauffähig. Einzelheiten 
entnehmen Sie bitte der nebenstehenden Aufstellung. 


— Soweit die Programme nicht Bestandteil einer Serie 


sind, befinden sich alle Programme als »ready to run« 
auf der DATABOX. 


— erscheint jeden Monat und trägt das Titelbild des 
gleichzeitig erscheinenden Heftes. 
— Der Datenträger zur PC International enthält 


außerdem jedesmal ein zusätzliches Bonusprogramm, 
das nicht im Heft abgedruckt ist. 


Preisvorteil durch DATABOX-Abo: 
Unser beliebter DATABOX-Sorvice kann selbstverständ- 
lich auch Im Abonnement bezogen werden. Dadurch 
sparen Sie Mühe und haben außerdem noch einen 

© Preisvorteil gegenüber dem Einzelbezug 
Das DATABOX-Abo kostet: 


Als Kassette für 1/2 Jahr 
(6 Lieferungen): 


I) 
© 








n R . Im Inland und West-Berlin......unnnnnnenan. 90,— DM 
Einzelbezugspreise für Databox: im europäischen Ausland. „...100,— DM 
“ Im außereuropäischen Ausland......... 120,— DM 
3-Zoll-Diskette Als Diskette für 1/2 Jahr (6 Lieferungen): 
Im Inland und West-Berlin...zunnnennnnnn. 150,— DM 
Im europäischen Ausland ...160,— DM 
Im außereuropäischen Auslan ..180,— DM 
Als Kassette für 1 Jahr (12 Lieferungen): 
Im Inland und West-Berlin...uuesesnnnn 180,— DM 
Im europäischen Ausland... 200,— DM 
Im außereuropäischen Ausland......... 240,— DM 
Als Diskette für 1 Jahr (12 Lieferungen): 
Im Inland und West-Berlin.......uu........ 300,— DM 
Im europäischen Ausland. .cennsannnnnnno.. 320,— DM 


Im außereuropäischen Ausland......... 360,— DM 


Bitte benutzen Sie für Ihre Bestellung 
die Abo-Karte. 





Zahlungsweise: 
Am einfachsten per Vorkasse (Verrech- nenten das Recht, seine Bestellung innerhalb 
nungsscheck) oder als Nachnahme zu- Einer Woche nach Abschluß schriftlich beim 


Widerrufsrecht: Wir garantieren Jedem Abon- 


DMVVerlag, Postfach 250, 3440 Eschwege, 
zu widerrufen. Die rechtzeitige Absendung des 
Widerrufsschreibens genügt zur Fristwahrung. 


züglich der Nachnahmegebühr. Bei 
Lieferungen ins Ausland ist Nachnah- 
me nicht möglich. 


Bitte benutzen Sie die Bestellkarte, 


ER L 
DMV-Verlag - Postfach 250 - 3440 Eschwege RAM. 
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Gamers Message 


Diesen Monat wollen wir uns etwas näher mit den Problemen einer Flug- 
zeugentführung befassen (Hijack) und uns auf die Richtigstellung der Zeit- 
zonen bei Starion konzentrieren. Außerdem finden sich auf den folgenden 
Seiten wieder viele Kurztips und Pokes zu alten und neuen Spielen für die 
CPC-Rechner, wobei sich diesmal auch etwas für den Joyce gefunden hat. 
So wird die allmonatliche Fundgrube auch diesmal wieder für jeden etwas 


enthalten. 


Hijack 


Im CIA-Raum ist im hintersten Abla- 
gefach der aktuelle Tagescode zu fin- 
den, der jedoch immer gleich ist. Mit 
dem Code 493 kommt man im Präsi- 
dentenzimmer weiter und kann somit 
den Flugplatz erreichen. Wenn man 
jetzt am Entführungsort ist, so istesam 
besten, die Entführer auszuzahlen, 
vorausgesetzt, man besitzt genügend 
Geld. Versorgen Sie die Presse anfangs 
nur mit Kurzmeldungen; erst wenn Sie 
zu dem Entführungsort fliegen, sollten 
Sie ein Fernsehinterview geben, da die 
Presse dann nicht mehr so viel Zeit 
zum Kritisieren hat. Halten Sie Ihre 
Mitarbeiter immer zur Arbeit an, damit 
diese nicht aufden Gedanken kommen, 
gegen Sie zu arbeiten. Wenn man dem 
Finanzberater den Auftrag erteilt, 
schnell Geld zu besorgen, so hat das im 
Ansehen der Mitarbeiter für Sie negati- 
ve Folgen. Besonders der militärische 
Assessor und Berater, sowie die politi- 


schen Angestellten können Sie negativ 
bewerten, was Sie im Aktenzimmer in 
Erfahrung bringen können. Glauben 
Sie, daß eine Person gegen Sie arbeitet, 
so können Sie dem FBI-Agenten den 
Auftrag geben, die betreffende Person 
zu verhören, was sich jedoch in Ihrem 
Ansehen wiederum negativ auswirkt. 
Der Code für das Kommunikationsbü- 
ro lautet 902. Die Angaben der Codes 
beziehen sich auf die Kassettenversion, 
bei den Diskettenversionen können 
Abweichungen bestehen. 


Diverse Tips & Pokes 


Von Achim Hauck und Stefan Ruggie- 
ro sind folgende Tips und Pokes für 
den CPC 6128. Vielen Dank an die 
Great Kerovnia Brothers! 


Bruce Lee 

Legt man sich im dritten Screen ganz 
rechts unten unter dem Nilpferd auf 
den Boden, kommt man einige Bild- 
schirme weiter. 


Hi jack-Lageplan 


Präsident | 


Polit. Ass. | 


Milit. Ass. 


Sekretariat 


FBI Raum 1 
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Mata Hari 

Man muß die unbewaffneten Personen 
mit der Waffe bedrohen (erst wenn sie 
Laute von sich geben). So erhält man 
die Kombination für die Türen. Den 
Arzt besiegt man ganz einfach, indem 
man den Joystick nach links unten zieht 
und gleichzeitig den Feuerknopf ge- 
drückt hält. 


Ghostbusters 

Geben Sie keinen Namen ein, und tip- 
pen Sie bei der Frage nach der Konto- 
nummer folgende Ziffern ein: 
46321231. Nun sollten Ihnen 990.0008 
gutgeschrieben werden. 


Hacker I 
Geben Sie nach der Namensabfrage das 
Wort “Cover“ ein. 


Samantha Fox 
POKE &4129,&C3 
POKE &421A,&6 
POKE &421B,&BB 
POKE &2266,&C9 


Kung Fu-Master 
POKE &A037,Leben 
POKE &A03C ‚Level 


Bomb Jack I 
POKE &6744,&255 


Ghost’n Goblins 

POKE &50AE,&40 

POKE &50AA ,&36 

POKE &509C,&35 

POKE &50A6,&37 _ 

POKE &50A8,&39 (Überraschung!) 


Starion 


Zu Starion liegen uns die Lösungen der 
ersten sieben Zeitzonen vor. Wir haben 
sie in tabellarischer Form aufgelistet. 
Leider sind uns erst drei Levelpasswor- 
te bekannt. Wir haben sie unter der je- 
weiligen Tabelle vermerkt. 


Grid 1: 


Ausgangsjahr Lösungswort Zieljahr 


1858 Bible 
1968 EEC 
1957 Diamond 
1897 Relativity 
Rhodesia 
Electricity 
Starion 
Aspirin 
Telegram 


1905 
1980 
1831 
1985 
1893 
Passwort: Redbreast 


er —— — Ze 


Grid 2 


Ausgangsjahr Lösungswort Zieljahr 

1815 
1764 
1883 
1086 


Coal 
Krakatoa 
Preface 
Leonov 
Armada 
Axe 

Seal 


1764 
1883 
1086 
1965 
1588 
1587 
1776 

814 
1815 


1965 
1588 
1587 
1776 Egbert 
814 Wellington 
Passwort: Spacewalk 





Grid 3 


Ausgangsjahr Lösungswort Zieljahr 


Treaty 
Atom 
Spectrum 
Ivan 
Ballast 

Ss 


Lamp 
Eiffel 
Hitler 





Grid 4 


Ausgangsjahr Lösungswort Zieljahr 


Avon 
Tobacco 
Umbrella 
Rubber 


Penny 
Cakes 
Halley 
Aerial 
Everest 





Grid 5 


Ausgangsjahr Lösungswort Zieljahr 









1885 NATO 1949 
1949 Odyssey 2001 
2001 Gilette 1895 
1895 Alps 219 
219 Asp 35 
35 Radium 1898 
1898 Eric 982 
982 Hawaii 1959 






Petrol 







Grid 6 










Table 


1869 Eclipse 1999 
1999 Ribbons 1871 
1871 Nero 64 

64 Alaska 1867 
1867 Uranium 1945 
1945 D 1944 
1944 Electron 1897 


Vesuvius 





Grid 7 


Ausgangsjahr Lösungswort Zieljahr 
1773 
163 
1922 
1042 


Rosetta 
Insulin 
Edward 
Exhibit 
Calcutta 
China 
Cannon 
1812 Nobel 
1867 Tea 
Passwort: Eccentric 


1851 
1756 
1997 





Steve Davis Snooker und 
Head over Heels (Joyce-Version) 


Von Matthias Hohenberger aus Freu- 
denberg stammen folgende Tips: 


Steve Davis Snooker 

Durch das gleichzeitige Drücken der 
Tasten SHIFT, F6 und STOP, gelangt 
man während des Spiels wieder zu 
CP/M zurück. 


Head over Heels 

In einem Zimmer in Blacktooth greift 
Sie eine Kugel an, an der Sie erst vor- 
beikommen, wenn Sie vier Kronen ha- 
ben (vorher ist es unmöglich). Nach- 
dem Sie die fünfte Krone besitzen, sind 
Sie für alle Zeiten unbesiegbar. Das 
Spiel verfügt über genau 301 Räume. 
Versuchen Sie, bei einem Hasen für 
Leben, ihn möglichst mit beiden Spiel- 
figuren zu erreichen. 


Saboteur II 
Wir haben einmal in unserer Oldie-Ki- 


ste gestöbert und sind dabei auf einige 
Tips zu Saboteur II gestoßen: 


Mission 1 


Kein Code 

Name: Rin “Strength of mind 
body“ 

Auftrag: Wächter töten 


Entkommen: Mit Motorrad durch 
Stollen und Umzäunung 


fahren 

Zeit: 998 

Mission 2 

Code: Jonin 

Name: Kyo “Direction of ener- 
gy“ 

Auftrag: Wächter töten 

Entkommen: Durch Stollen laufen 

Zeit: 900 

Mission 3 

Code: Kime 

Name: Toh “Harmony with the 
universe“ 

Auftrag: Wächter töten und zwei 


Teile eines Lochstreifens 
(LS) sammeln 
Entkommen: wie bei Mission 1 
Zeit: 


Mission 4 
Code: 
Name: 


Auftrag: 


Entkommen: 
Zeit: 
Mission 5 
Code: 
Name: 


Auftrag: 


Entkommen: 
Zeit: 700 
Mission 6 
Code: 
Name: 


Auftrag: 


Entkommen: 
Zeit: 
Mission 7 
Code: 
Name: 


Auftrag: 


Entkommen: 
Zeit: 
Mission 8 
Code: 
Name: 


Auftrag: 


Entkommen: 
Zeit: 
Mission 9 
Code: 
Name: 
Auftrag: 


Entkommen: 
Zeit: 


Kuji Kiri 

Sha “Healing of self and 
others“ 

Wächter töten, fünf Tei- 
le eines LS sammeln und 
elektrischen Zaun aus- 
schalten 

wie bei Mission 1 

750 


Saimenjitsu 

Kai “Premonition of 
danger“ 

Wächter töten, sieben 
Teile eines LS suchen 
und elektrischen Zaun 
ausschalten 

wie bei Mission 1 


Genin 

Jin “Knowing the 
thoughts of others“ 
Wächter töten, neun Tei- 
le eines LS sammeln, 
den LS in die Missile 
Console (CODE) einge- 
ben und elektrischen 
Zaun ausschalten 

wie bei Mission 1 

650 


Mi Lu Kata 

Retsu “Mastery of time 
and space“ 

Wächter töten, elf Teile 
eines LS sammeln, den 
LS in CODE eingeben 
wie bei Mission 2 

600 


Dim Mak 

Zai “Control of natural 
elements“ 

Wächter töten, vierzehn 
Teile eines LS sammeln 
und den LS in CODE 
eingeben 

wie bei Mission | 

550 


Satori 

Zen “Enlightenement“ 
Wächter töten, vierzehn 
Teile eines LS sammeln, 
den LS in CODE einge- 
ben und elektrischen 
Zaun ausschalten 

wie bei Mission 1 

500 


(br/jf) 
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Es ist nicht alles 


Gold, was glänzt 
Goldrausch auf dem CPC 


Wollen Sie erleben, wie sich ein Goldgräber in einem 
verlassenen Höhlensystem fühlt? Wenn Sie nicht mit 
diesem Gefühl vertraut sind, so können Sie es mit ihrem 
CPC und dem Programm ’Goldrausch’ erleben. 


Da der Mensch schon immer eine 
Schwäche für Gold hat, kann sich auch 
Bruno — der Held dieses Spiels — dem 
nicht entziehen, 

In einem Bergwerk findet er beim Bud- 
deln einen geheimen Zugang, der sich 
als großes Goldlager entpuppt. Doch 
Vorsicht! Um an das Gold heranzu- 
kommen, müssen allerlei Gefahren be- 
wältigt werden. 

Viele seltsame Tiere fordern das Ge- 
schick des Goldgräbers heraus, denn 
eine Berührung kostet ein Spielleben. 
Aber auch groteske Steinformationen 
bringen den armen Goldgräber ins 
Schwitzen, denn auch hier hat eine Be- 
rührung tödliche Folgen. 
Tastenbelegung 

SPACE-Taste — Pause an/aus 
ESC-Taste — bricht das Spiel ab 


DEL - schaltet 
die Musik aus 
ENTER — Mu- 
sik wieder an 

Die  _Spielfigur 
läßt sich nur mit einem Joystick spie- 
len. Links/Rechts bestimmen die Lau- 
frichtung, mit dem Feuerknopf kann 
man springen. 

Haben Sie eine hohe Punktzahl er- 
reicht, so wird diese auf Diskette abge- 
speichert. 

Listing 1 abtippen und unter den Na- 
men “Goldrush.BAS“ abspeichern. 
Danach Listing 2 abtippen und nach 
richtiger Eingabe mit 'RUN’ starten. 
Es wird dann ein Programmteil namens 
“Goldrush.BIN“ erzeugt. Dann 
kommt Listing 3 an die Reihe, wo dann 
ein Programmteil namens “Gold- 


250 IF NOT INKEY(72) THEN IF i>0 THEN MOVE [2654] 
64,154-i#48: PRINT" 
260 IF NOT INKEY(73) THEN IF i<2 THEN MOVE [2651] 
64,154-1#48: PRINT" 





Fünfzehn Höhlen gilt es zu schaffen, um ein reicher Mann zu werden 


rush. TAB“ erzeugt wird. Diese Pro- 
grammteile werden dann in Listing 1 
nachgeladen. 


Kassettenbesitzer sollten folgende Zei- 
len in Listing | ergänzen: 
770 LOCATE 1,1: PRINT “Bitte Highscore- 
kassette einlegen":CALL &BBO6:LOCATE 
1,1:PRINT SPACE$(40): 
OPENIN “Goldrush. TAB“ 
870 siehe Zeile 770: OPENOUT "Gold- 
rush.TAB®, 
Und nun viel Spaß! 

(Reinhard Deschler/cd) 
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270 IF INKEY(76) THEN 310 [296] 

(EBEIEEEEEEEKERE ERIK EEE FE E  * [1383] 280 IF i=0 THEN GOSUB 450:G0T0O 180 (2217) 

':. GOLDRAUSCH .. (1161) 290 IF i=1 THEN GOSUB 970:CALL &BBO3:CALL [2438] 

'.x “x [104) &8806:G60T0 180 

'xx 1989 by .. (272) 300 IF 1=2 THEN CALL 8&9286:CALL &931E:CALL [2927] 

'€« Reinhard Deschler .. [1458] &BCA7:GOTO 180 

'## Hauptprogramm (Listing ı) ”. [1477] 310 RESTORE 400:FOR x=1 TO 8 [1964) 

EIS ET Teer een [1383] 320 IF x<8 THEN READ a:INK f,a [820] 
70 MEMORY &3FFF (758) 330 IF f=7 THEN f=] ELSE f=f+1 [1091) 
80 ENV 1,15,-2,10:ENV 2,15,-1,30:ENV 3,3,- [2027] 340 NEXT [350) 
1,2,3,-1,20 350 RESTORE 410:FOR x=1 TO 8 (881) 
90 ENT 1,9,-3,1:ENT 2,9,3,1:SPEED INK 3,3 [1352] 360 IF x<8 THEN READ a:INK g,a [800] 
100 DIM hiscore(10),hiname$(10):CALL &8848 [1437] 370 IF g=14 THEN 9=8 ELSE g=g+1 (865) 
110 DATA 21,0,C0,11,0,40,1,FF,3F,E0,80,C9, [2533] 380 NEXT [350) 
21,0,40,11,0,C0,1,FF,3F,E0,80,C9 390 GOTO 230 [#23] 
120 LOAD"GOLDRUSH.BIN",&8000:G0SUB 770:FOR [5226] 400 DATA 25,15,6,16,24,17,7 (1021) 
i=8&A000 TO &AlOO:POKE i,0:NEXT 410 DATA 9,19,10,20,22,18,21 (963) 
130 FOR i=&9F00 TO &9FL7:READ byte$:POKE i [4733] 420 t117] 
‚VAL("&"+byte$):NEXT 430 'PLAY GAME [1253) 
140 MODE O:FOR i=0 TO 15:INK 1,0:NEXT:CALL [4168] 440 ' [117) 


450 FOR 1=&9597 TO &959B:POKE i,0:NEXT:POK [4172] 
E &95A3,1:CALL &92B6 

460 POKE &9587,&B9:POKE 8&9588,895:CALL &89 [2605] 
90:e=PEEK(&95B5) 

470 IF e=3 THEN CALL &BCA7:RETURN [2893] 
480 IF e=2 THEN IF PEEK(8&9598)<5 THEN POKE [7144] 
&9598,PEEK(&9598)+5 ELSE POKE &9597,PEEK( 


SI3EC:CALL &9FOO 
150 ' {117) 


160 'title picture (641) 
1:20. " [117] 
180 MODE O:INK 0,0:BORDER O:FOR i=1 TO 15: [5088] 
INK 1,16:NEXT:POKE &95A4,5 

190 OUT &8C00,6:0UT &8000,0:0UT 8&8C00,7:0U [1846] 


T &8000,1 &9597)+1:POKE &9598, PEEK(&9598)-5 

200 CALL &9F0OC:FOR i=1 TO 30:0UT &8C00,7:0 [2845] 490 score=0:FOR i=4 TO O0 STEP-l:score=scor [7132] 
UT &8000,i e+PEEK(&959B-1)*10”i: NEXT 

210 IF i<26 THEN OUT &8C00,6:0UT &8D00,i [2609] 500 hisc=0:FOR i=4 TO 0 STEP-1:hisc=hisc+P [2835] 
220 FOR x=1 TO 10:NEXT x,i:PLOT 640,1,15:1 [2492] EEK(&95AO-1)=10” 1: NEXT 

NK 15,11: TAG: i=0:f=1:g=8 510 IF score<hisc THEN 530 [840] 
230 MOVE 64,154-i=48: PRINT CHR$(246);: [1379] 520 FOR i=0 TO 4:POKE &959C+i1,PEEK(&9597+1 [1996] 


240 IF NOT INKEY(36) THEN POKE 395A4,9 [1430] ):NEXT 
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530 IF e=1 THEN 570 
540 PEN 15:LOCATE 3,11:PRINT"You have made 
ali";SPACE$(24);"15 levels !!” 

550 PEN 12:LOCATE 1,17:PRINT"You’re worthy 
to get";SPACE$(21);"5000 extra points !" 
560 CALL &B803:CALL &8806:G0T0 640 

570 MODE 1:INK 0,0:INK 1,6,15:INK 2,0:PEN 

2:PLOT 0,0,1:LOCATE 1,25:PRINT"GAME OVER": 

TAG 

580 FOR y=15 TO 1 STEP -2:FOR x=1 TO 144 S 

TER: 2 

590 IF TEST(x,y)=O THEN 610 

600 MOVE x#4-3+32,195+y®4: PRINT CHR$(129); 

610 NEXT x,y:TAGOFF:CALL &8803 

620 FOR i=1 TO 4000:IF INKEY$<>"" THEN 640 

630 NEXT 

640 merk=0:FOR z=10 TO 1 STEP -I:IF score)» 

hiscore(z) THEN merk=2:NEXT 

650 IF merk=0 THEN GOSUB 970:CALL 8&8803:CA 

LL &8806:RETURN 

660 MODE 1:INK 1,24:PEN 1:LOCATE 15,6:PRIN 

T"WELL DONE !1":LOCATE 1,8:PRINT"You are i 

n the top ten of best players !":LOCATE 9, 

i2:PRINT"Please enter your name :" 

670 LOCATE 11,18:INPUT name$:names=LEFT$(n 

ame$+SPACE$(20),20) 

680 IF merk=10 THEN 720 

690 FOR z=10 TO merk+1 STEP -ı 

700 hiname$(z)=hiname$(z-1):hiscore(z)=his 

core(z-1) 

710 NEXT z 

720 hiname$(merk)=zname$:hiscore(merk)=scor 

e 


806: RETURN 





[975} 


(5263) 


[7247] 


[1037] 
[4121] 


[2968] 


{ 753] 
[2830] 
[1785] 
(1853) 
(350) 
{3227} 


[2s88) 


[1&718 


227%) 


[58 


6) 


(1136) 
(2826) 


730 GOSUB 970:G0SUB 870:CALL &8803:CALL &8 (3119) 





























































Unterschrift (bei Minderjährigen des gesetzlichen Vertreters) 


780 (117) 
750 'Highscoretabelle lesen (1501) 
760 ' [117) 
770 OPENIN"GOLDRUSH. TAB" t819) 
780 FOR i=1 TO 10 [315] 
790 INPUT#9,niscore($) [1909] 
800 INPUT#9,hiname$(t) (824) 
810 NEXT (350) 
820 CLOSEIN ——Lz52]_ 
ie) 
eg 
SS 
855 
2 
“55 
as 
— 
[N ® 
© 5 ® 
— [e)] ‚oO ° 
= 5 = 0 3 
x 8:2: 5 
& Ö ec (2) 
m > ® © 9 
[e) ie 08 w 
2 285 9 
ee 285 & 
< aan 1) 
P | 
: 8 
E 
| E 
: 8 
\ 2 : © 
: ; 
x © = 
\ A: 88 | 
\ we - 8: | 
al \ 3 & 2 E | 
3 8 & 3 
58 > ca | 
S8C ss 8 
r D,,%: Me: 
un | x 32 = 88% 
_ <@3 S°S o2 
NO ge:? 2» 53 
© 855 zZ | 5% $® 
| 8 ::: 3 a8 Se | 
2 ::: || 
Op 23% Ele, gb E> 
N. 228 Le 3385 
el: ©. 8 03 
533 E fü | 8$ g 
most: 5 8 Na |: 
Wu 2053 2 | läo8oe 3 





o 

£ 

£ 
28 
mn» 
5 
5 
5 


frankieren 





Antwortkarte 


® 
ö 
DI 
°% 
o£ 
3 
> £ 
26 
ag: 


Postfach 250 


3440 Eschwege 


























si 9 
tv) > 9 
x {0} cc. 
ix 8 555 
°Eo " En 
= E ® 
oO e= Mm c c © [e 
Od 3 22% 
oßE ® W296 
rP< = can 
auo 5 38% 
N * N PER 
® 
Ö m 
25 
S 
° 
6 5 
2 058 8 
[1] oc [3 £ 
x =-=n5 
et s25 9 
E 759 m 
>29 o© 
un < 
£ 200 
< düaı 8 
© 
oO 
® 
9 
bus 
£ 
Ö 3 ; F 
=: “ = S & 
Da Ei N 8 
n | &4 173 a + 






















































































































Ve ’ 
je} 'D 
ED on ' © > 
in: N Be IE A - 
S 2.2 N 28 | = 2 znololololalolaolblalalalolololglolalaleio ya ie) 
S 2J 5 389 a) 0 SE ui a lelleile Io Bine mel Su hy [%) 
2 fa EM Wr, Q! c axı iR Sr - 
> ‘5 > =2 © od En m n 
NS , & o 2 & u ©® ” 
= ==; pm 2) m © N i 
Si ie: 55 #3 Ss 92% P N = 
588 sSa3, 908 83 ® 7 
FG = 7: = zu “2 na IB u “ en SE IM 8 ji 
3 & 5 Hein 95 ss2ololololololalolololololololololalolalolol & er 
"S = wh HarEßo) ©® [3 So £ Ö 
'S 7 oo we‘. Mm fa} | ß 
5 ma 008 
.S © R - 40099] 3 a am u | 
© 20oß a Seanssl KR Ä & 8 
io mas 2 3523038 08 55 2 = 
ie <«3s 3) 533 E2838W Q902 50 2 v 
= © P} 2. =25°3%) RI ox3] “l E t = Io 
3 HEH 2 52 Z38E=% 06 He] a ne] a] wm] m] m]m] a] mn] n]n]m] m] m] In] m] mim" ö 
SS sE2 2| 23538859 cc 56 P= ® 
ss 3883 a] Ssgeiiie 85 5% ö & 
3 Eine El 42 T2555 Q N > £ E za 
b5 = iD — - —t t t m © © = Z 
2 BEE en Be 28 gor a 
I 2 [=i {5} = O8. R 2 al [eK] 
I 5.58 va Zase® Ber: S32nnlaololaolololoialolglololalslolelolisiolol € so ® = 
= as —_”%8 „EEE OU 559 8 22 35 
3 vun 5 E9_.)38 > m% $ı TE: _ Fi 
5 2358 38 25° 088 * 33 © 8 
E 908 38 „297,3 Noe E%- : 58 
S 258 8% 82.28 © er ec 58 
= SE 3.2 Eea5sDE8 £5°T PERS,» sisigigigigigiglgigigig olalalolalaın u 28 Z >=:9 
u a8 AA 5 RmMg no 239 28|8|2|S[S/L|[2I2 SI2[S|2IS] SEI] 28|8|28] O = 
= EE3 Fu BER == uon E83 88|4|8/6|X|8/5)5|=|8|=|815| +58 X]8|5 00 7) es 
Ö 97h 33 zuUSEHn "2: 386 Ss ©: 
EBe 22 7SsES 5 a: \ololalolaolololololalo] ılalolalolalolalol ı = ss = 
Fr f u ah Ö sauom u = mn m ] + = 
E 3 3RF79 25 0 aA.n.0r 
»Abo-Order Zeitschrift« »Abo-Order DATABOX« Bücher-Service 
Hiermit bestelle ich »PC International« für mindestens ee ich > FE PC 1512-Databox Ich bestelle hiermit aus Ihrem Angebot: 
|6 Ausgaben DI] 12 Ausgaben hie oe Een NT Bau aaReN: 401 Stck. Prakt. Textverarbeitung mit JOYCE 89,- DM 416 ___Stck. Das große Gralikbuch zum CPC  49,— DM 
Preis: (BRD und West-Berlin) 12 Ausgaben 66,—- DM, B ise Inland (eins rto/Vorpack a . ß ’e > 
6 Ausgaben 33, - DM Casa: Bälspaben ©0-- DNA. 12 Abeosben @0-EM 402 ___Sick. Die BASIC2 TOOLBOX ia FT N FE AEN 
Auslandspreise: Europa 12 Ausgaben 96.- DM. Disk 3" 6 en 150.- DM aben 300,- DM und JOYG ‚— DM 
nseuronnlsuhee Ausland 12 Ausgaben 120.- DM, Bezugspreise Ausland Berourop ) 403 ____Stck. Diskelte zum BASIC2 Buch 450 ___ Stck. Führer zum JOYCE 29,80 DM 
6 Ausgaben 60,— DM Cass. 6 Ausg. 100,- DM 59. 200,- (240,-) DM MS:DOS 5 114 29, DM 452 Stck. Führer zum CP/M 19,80 DM 
.iotorung erfolgt ab der nächsterreichbaren Ausgabe Disk 3" 6 Ausg, 160,- DM(180,-)DM, 12 Ausg. 320,- (360,-) DM 92 _—— DICK. Führer zum ' 
404 ___Stck. JOYCE-mehr als ein Textsystem 69,-— DM 461 ___Stck. Das BASIC-Buch zum 6128 39,— DM 
Lieferanschrift Rechner-Typ Gewünschte Zahlungsweise: z 464 Stck. CPC Hardwareerweiterungen 49,— DM 
Geschäft M Privat CP: ] A n 405 Stck. Diskette zum Buch Nr. 404 30,— DM Zu ® 
| eschä | Priva CPC Joyce PC Bequem und bargeldlos durch Bankabbuchung 440 Stck. Schneider CPC- Arbeiten 
“el [4] | | | Fl 117 ETRLIN | | 410 ___ Stck. Das große Public-Domain-Buch 34,80 DM mit dBase Il 48,— DM 
L l l i l Ki 
\ 5 ‚Name Jankloitz ‚on Scheck abschreibe p 425 > BI | _ 
orname, Nam | Bankleitzahl (von Scheck ab: sign ben) | 412 Stck. Das Floppybuch zum CPC 49,— DM 125 ___Stck. Den ah PIODFARNFNEIER 38,— DM 
I Mil Lan ll | Bl TEEN EI. 1 441 Stck. Schneider CPG — Arbeiten mit 
Firma (nur werın Lieferadresse) Konto-Nr-Inhaber 413 „Sick. Das CP/M-Trainingsbuch zum CPC 49,— DM Turbo Pascal 48,— DM 
Amm ld 11 ANMBEBL IN LANE BEI HE 415 Stck, Das Maschinensprachebuch 442 Stck. Das Schneider GPC Grafikbuch 48,— DM 
Straße, Nr/Postlach Geldinstitut zum CPC 39,-— DM 445 Stck. Schneider GPG Erfolg mit Multiplan 48,— DM 
1 I a I Bu | || 
PLZIOrt fine yenaue Anschrift angeben!) Einen Verrechnungsscheck in Höhe des Rechnungsbetrages Porto/Verpackung: 
Dieses Abonnement verlängert sich automalisch um 6 bzw. 12 Ausga ot Woche Inland 4,- DM, Ausland 6,- DM 
pen, wenn es nicht sechs Wochen vor Ablauf schriftlich gekündigt wird , £ " x DM 
ne zuzügl, der Nachnah 
nos Widerruf Gesamtbetrag DM 


Datum 
Bitte unbedingt zwei Unterschriften leisten! 


Unterschrift "er M er rgen des gesetzüchen \Verbeters) 





tige das durch mono 

















Unterschrift oe 


Datum 


Datum 


Unterschrift (bei Minderjährigen des gesetzlichen Vertrotors) 


DM 


Gesamtbetrag: 


Programm 


[975] 
[5263] 


530 IF e=1 THEN 570 

540 PEN 15:LOCATE 3,11:PRINT"You have made 
all";SPACE$(24);"15 levels +1!" 

550 PEN 12:LOCATE 1,17:PRINT"You're wortny 
to get";SPACE$(21);,"5000 extra points !" 

560 CALL &8803:CALL &8B06:60T0 840 

570 MODE 1:1INK 0,0:INK 1,6,15:INK 2,0:PEN 

2:PLOT 0,0,1:LOCATE 1,25:PRINT"GAME OVER": 

TAG 

580 FOR y=15 TO 1 STEP -2:FOR x=1 TO 144 S 

TEP 2 

590 IF TEST(x,y)=O THEN 610 

600 MOVE x#4-3+32,195+ys4: PRINT CHR$(129); 

610 NEXT x,y:TAGOFF:CALL &8B03 

620 FOR i=1 TO #000:IF INKEYS«H"" 

630 NEXT 

640 merk=0:FOR z=10 TO ı STEP -1:IF score) 

hiscore(z) THEN merk=z:NEXT 

650 IF merk=0 THEN GOSUB 970:CALL &8803:CA 

LL &B806:RETURN 

660 MODE 1:INK 1,24:PEN 1:LOCATE 

T"WELL DONE I“ 

n the top ten of best players ! 
12:PRINT"Please enter your name 

670 LOCATE 11,18:INPUT name$:name$=LEFT$(n 

ame$s+SPACE$(20),20) 

680 IF merk=10 THEN 720 

690 FOR z=10 TO merk+1 STEP -ı 

700 hiname$(z)=hiname$(2-1):;hiscore(z)=his 

eore(z-1) 

710 NEXT z 

720 hiname$(merk)zname$:hiscore(lmerk)=scor 

e 

730 GOSUB 970:G0OSUB 870:CALL &8803:CALL &8 

BO6: RETURN 

740 °' 

750 

760 
770 
780 

790 

800 

810 

820 

830 

840 

850 

860 

870 

880 

890 

900 

910 

920 

930 

940 

950 

960 

970 


(7247) 


[1037] 
[4121] 


[2968] 


(753) 
[2930) 
[1785) 
[1854] 
[350) 
13227} 


THEN 640 


[2488) 


15,6:PRIN 
:LOCATE 1,8:PRINT"You are i 
:LOCATE 9, 


{14718] 


(2272) 


"Highscoretabelle lesen 


OPENIN"GOLDRUSH. TAB" 
FOR i=1 TO 10 
INPUT#9,niscore(ji) 
INPUT#9,hiname$(i) 
NEXT 

CLOSEIN 

RETURN 


unın 
uno 


"Highscoretabelle schreiben 


sin 
ar 
_ 


OPENOUT"GOLDRUSH, TAB" 
FOR i=1 TO 10 
PRINT#9,niscore(j) 
PRINT#9,hiname$(i) 
NEXT 

CLOSEOUT 

RETURN 


mnnaonnremuennenen 
mm sis De 


w 
2» 
no 
Dee = 


(1490) 
[1236] 
[350] 
[902] 
[555) 
[117] 
(2012) 
[117) 
(2610) 


"Highscoretabelle ausgeben 


MODE 1:INK 1,0:INK 2,0:INK 3,0:PEN i 
980 LOCATE 14,2: PRINT"HIGHSCORETABLE" (1762) 
990 FOR y=326 TO 32 STEPR -32 [1817] 
1000 PLOT 1,y,2:DRAWR 638,0:DRAWR 0,-28:DR [3243] 
AWR -638,0:DRAWR 0,28 


Listing Goldrush 



















1010 PLOTR 78,0:DRAWR 0,-28:PLOTR 152,0:DR [3242] 
AWR 0,28 

1020 NEXT [350] 

1030 PEN 3:FOR i=1 TO ı0 [1063) 
1040 LOCATE 2,4+2*i: PRINT USING"##";i:LOCA [4382] 
TE B,4+2=i: PRINT USING"###8##" ;hiscoreli):L 

OCATE 18,4+2=i: PRINT hiname$(j) 

1050 NEXT:INK 1,8:INK 2,15:INnK 3,26 [2142] 
1060 RETURN [555] 








































BEER TEE EEE EEE E (1476) 
20 '*= DATALADER (Listing 2) ** [931] 
30 '#** erzeugt das File GOLDRUSH.BIN xx [1882) 
40 BERIEEEEEEEEEEE TEE ET RE E EEE [1476) 
50 MEMORY &ATFFF (150) 
60 FOR adr=&8000 TO &95E6 [810) 
70 READ byte$ POKE adr ,VAL("&"+byte$) [1867] 
80 NEXT [350] 
90 SAVE"GOLDRUSH.BIN”,6D,&8000,&15E7 [2985] 
95 END (110) 
100 DATA 14,04,00,14,28,00,00,3C,3C,00,3cC, (6979) 
3C,3C,3C,00,0C,0C,00,00,48,0C,00,04,0C,0C, 
00,00,48,0C,00,00,84,0C,00,00,04,08,00,00, 
30,30,00,00,18,30,00,04,30,30,00 
110 DATA 08,30,30,08,00,F0,F0,00,00,50,Fo, (8953) 
00,00,04,04,00,00,04,04,00,00,04,04,00,00, 
04,04,00,00,CC,CC,00,14,04,00,14,28,00,00, 
3C,3C,00,3C,3C,3C,3C,00,0C,0C,00 
120 DATA 00,48,0C,00,04,0C,0C,00,00,48,0C, [7278] 
00,00,84,0C,00,00,04,08,00,08,30,30,00,04, 
30,24,00,00,30,30,08,00,30,30,04,00,F0,Fo, 
00,00,50,F0,00,00,0C,04,00,00,08 
130 DATA 04,00,04,00,04,4C,04,00,00,44,cc, (7963) 
00,00,00,14,0£,00,14,28,00,00,3C,3C,00,3C, 
3C,3C,3C,00,0C,0C,00,00,0C,84,00,00,0C,0C, 
08,00,0C,84,00,00,0C,48,00,00,04 
140 DATA 08,00,00,30,30,00,00,30,24,00,00, [6724] 
30,30,08,04,30,30,04,00,F0,F0,00,00,F0,A0, 
00,00,08,08,00,00,08,08,00,00,08,08,00,00, 
08,08,00,00,CC,CC,00,14,04,00,1& 
150 DATA 28,00,00,3C,3C,00,3C,3C,3C,3C,00, [7701] 
0C,0C,00,00,0C,84,00,00,0C,0C,08,00,0C,84, 
00,00,0C,48,00,00,04,08,00,00,30,30,04,00, 
18,30,08,04,30,30,00,08,30,30,00 
160 DATA 00,F0,F0,00,00,F0,A0,00,00,08,0C, [ 7576) 
00,00,08,04,00,8C,08,00,08,88,00,00,08,00, 
00,00,CC,06,02,FC,56,03,03,A9,FC,03,03, FC, 
A9,03,03,05,02,C3,C3,82,82,41,41 
170 DATA 82,82,C3,C3,09,05,00,55,FF,00,00, [9988] 






00,BF,3F,AA,00,55,3F,3F,7F,00,BF,BF,7F,3rF, 
AA,BF,BF,BF,BF,AA,BF,BF,TF,3F,AA,55,3F,3F, 
7F,00,00,BF,3F,AA,00,00,55,FF,00 


Listing Goldrush 













BTX für Joyce/CPCı 


BTX-Textdecorder 97 DM, original Centronics/RS232- 


Erweiterung ana N een 0 DM: | 
Akustikkoppler 359 DM oder Hayeskomp. Modem 295 DM, 
DEU SOWAS teenninsnnnenmaennpaneennmssnensennenn nen 87 DM 


IBM-komp. Profi-Computer von MLC mit Monitor und 
MF2-Tastatur: 


80286 SuperAT/512 KB bestückt/12 MHz/20 MB’ ...... für 2499 DM 
A | 80386-16 SX/1 MB bestückt/16 MHz/20MB/. „für 3849 DM 
„.. Hercul./1,2 MB-Disk/2 x Seri/Parall-40 MB-Aufpeis ........ 350 DM 
wio-Material gegen 1,70 DM-frankieren, adressierten Rückumschlag. 


Tel. (0 40) 58 45 31 





Neanderstraße 19 
2800 Bremen 1 
BTX 042153 1065 











SBTX 


für alle AMSTRAD / Schneider JOYCE PCW 8256 / 8512 und 9512 I 





JOYCE BTX-Modul mit Anschlußkabel an HAYES-Moden, DBTO3-Post- 
anschlusdose oder BTX-Akustikkoppler und Bedienungsanleitung 
zum Einführungspreis ab 598,50 DM 


TROJAN'S CADNASTER PACK mit anschlußfertigen Lichtgriffel und 
eutscher Bedienungsanleitung für JOYCE PCW nur 199,-- DM 


Locofile V. 2.283 Dt. 


Datenbank mit engl. Handbuch 168,-- DM 













MICA V. 1.1 CAD-Programn nit 
t. Handbuch nur 99,-- DM 


Fi UT IE DM REN 
Unternehmensberatung & Handel 
Korbiniansplatz 2 

DO - 8045 Ismaning bei München 


- ” Kr = 
Geschäftszeiten nach Vereinbarung | 















==) Gratis Info's anfordern | 
ne 
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Programm 











i80 DATA 00,06,05,0F,0F,OF,OF,OF,OA,OA,OF, 
05,05,05,05,00,0A,0A,00,0A,0F,05,00,00,0F, 
00,0F,00,00,0F,0F,0F,00,00,03,44,CC,88,CC, 
CC ,CcC,C0,CC,CE,CC,CC,CC,CC,CC,CcC 

190 DATA CD,CF,CE,CC,CF,CC,CC,CC,CC,44,CF, 
88,45,00,8A,45,00,8A,8A,00,45,0C,03,44,CC, 
88 .CC.CC.CC.C0.CC.CE,CC,CC,CC,CC,CC,CC,CD, 
CF,CE,CC,CF,CC,CC,CC,CC,44,CF,88 

200 DATA 00,CF,00,00,CF,00,45,CF,8A,06,04, 
00,50,00,00,A0,50,00,A0,50,50,50,00,00,&5, 
AO,00,F0,CF,DA,AO,00,CF,8A,00,08,03,83,33, 
A2,B3,33,A2,51,73,00,51,73,00,51 

210 DATA 73,00,00,A2,00,00,A2,00,00,A2,00, 
07,02,33,22,22,22,22,22,08,08,08,08,08, 08, 
0C,08,07,02,33,00,11,00,11,00,04,00,04,00, 
04,00,0C,08,07,02,33,22,00,22,00 

220 DATA 22,0C,08,08,00,08,00,0C,08,07,02, 
33,22,00,22,00,22,0C,08,00,08,00,08,0C, 08, 
07,02,22,22,22,22,22,22,0C,08,00,08,00, 08, 
00,08,07,02,33,22,22,00,22,00,0C 

230 DATA 08,00,08,00,08,0C,08,07,02,33,22, 
22,00,22,00,0C,08,08,08,08,08,0C,08, 07,02, 
33,22,00,22,00,22,00,08,00,08,00,08, 00,08, 
07,02,33,22,22,22,22,22,0C,08,08 

240 DATA 08,08,08,0C,08,07,02,33,22,22,22, 
22,22,0C,08,00,08,00,08,0C,08,07,0C, 45,BA, 
00,CF,00,45,8A,45,CF,00,CF,CF,8A,45, 45,00, 
BA,8A,45,45,00,8A,8A,00,8A,00,45 

250 DATA 00,00,8A,45,45,00,20,20,00,45,8A, 
45,00,00,8A,10,10,30,00,30,20,00,45, 45,00, 
00,20,10,10,10,00,20,00,8A,45,10,00, 20,20, 
10,10,00,20,20,00,45,20,00,30,00 

260 DATA 10,20,10,00,20,30,30,07,09,8A,45, 
45,CF,00,CF,00,8A,45,84,45,00,8A,45, 00,8A, 
8A,10,8A,45,00,8A,45,00,00,20,10,CF,CF, 00, 
8A,45,10,20,30,30,84,45,00,8A,10 

270 DATA 00,20,20,10,8A,45,00,20,10,00,20, 
20,10,8A,10,10,30,00,30,00,20,10,07, 0C,BA, 
00,45,CF,45,00,8A,CF,CF,00,CF,00,8A,00, 00, 
8A,45,00,8A,8A,00,45,00,20,8A,00 

280 DATA 00,8A,45,00,8A,8A,00,10,00,00,8A, 
00,00,8A,45,00,20,30,20,00,30,00,84,00,00, 
8A,10,00,20,20,00,00,00,20,8A, 00,00,20,10, 
10,00,20,00,10,00,20,CF,9A,10,30 

290 DATA 00,20,00,30,30,00,30,00,05,07,55, 
AA,55,FF,55,FF,00,AA,55,00,AA,55,00, OA,FF, 
FF,00,AA,05,0F,00,AA,55,00,0A,05, 05,00,AA, 
05,05,0F,05,00,0A,14,04,00,00,00 

300 DATA 00,00,00,00,00,00,00,00,00,00,00, 
00,00,00,00,00,00,00,00,00,00,00,00, 00,00, 
00,00,00,00,00,00,00,00,00,00,00,00,00, 00, 
00,00,00,00,00,00,00,00,00,00,00 

310 DATA 00,00,00,00,00,00,00,00,00,00,00, 
00,00,00,00,00,00,00,00,00,00,00,00,00, 00, 
00,00,49,84,04,80,92,80,4C,54,92,5E,4C, 7E, 
00,86,11,16,84,04,00,00,94,1A,02 

320 DATA 14,2F,1E,04,44,02,14,59,1E,94,6E, 
02,14,83,18,04,92,02,94,92,02,00,50,95,03, 
00,56,89,48,89,00,46,54,56,54,00,89,84,3A, 
80,92,80,92,88,04,5E,34,54,00,4C 

330 DATA 53,53,1A,02,4C,80,AD,62,02,00,00, 
04,1A,02,14,2F,0C,5C,2F,0C,94,44,02,14,59, 
0C,5C,59,0C,04,6E,02,14,83,0C,5C,83,0C,9%, 
92,02,00,00,4C,08,00,3E,54,5C,54 

340 DATA 00,CA,84,06,80,92,80,92,85,06,74, 
3C,79,00,54,11,08,54,04,94,11,35,11,01,00, 
00,54,17,02,54,29,02,44,38,02,10,44,0A,54, 
40,02,64,5F,08,50,71,02,52,86,01 

350 DATA 70,86,08,12,86,0A,00,00,24,8C,28, 
4A,00,86,81,00,08,85,18,80,90,80,04,3E,3C, 
35,54,35,00,44,11,0C,42,04,8C,11,52,8A,04, 
00,00,8C,1A,02,8C,2F,02,0E,1A,02 

360 DATA 0C,44,02,8C,44,02,8C,59,02,0E,6E, 
01,8C,6E,02,84,83,02,72,6E,01,60,83,02,4E, 
6E,01,3E,83,01,24,86,01,00,00,4A, 0C,00,00, 
5E,85,78,80,54,7E,4C,54,90,56,04 

370 DATA 80,00,86,8F,78,84,04,28,11,18,80, 
04,32,65,14,3E,08,00, 7A,2F,1C,78,04,00,9%, 
1A,02,8C,2F,02,0C,2F,02,04,44,02,14,59, 1E, 
94,6£,02,14,83,1E,46,56£,02,00,50 

380 DATA 95,0A,00,58,89,48,89,00,3A,7E,00, 
A65,85,3C,50,92,98,82,80,8E,57,04,80,00,28, 
11.26.64.04.00,28,2F.20,88,04,32,59,28,78, 
08,32,80,04,7C,08,00,0C,1A,02,18 

390 DATA 44,02,00,90,68,03,00,88,08,76,0B, 
1C,08,00,00,E6,85,04,5E,92,76,1C,80,92,80, 
04,A3,00,18,74,7A,29,02,32,32,77,32,01,4C, 
65,74,2C,02,66,6E,7A,29,02,80,32 
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400 DATA 74,29,01,00,32,86,1C,90,04,00,04, 
1A,01,10,2F,01,26,38,01,34,35,02,5C,38,02, 
6E,41,01,88,47,03,7A,59,01,5C,5F ,02,3C,59, 
02,26,5F,01,0E,7%4,02,00,00,00,00 

410 DATA 38,86,04,80,46,80,92,80,92,B0,92, 
56,00,88,3E,7A,94,08,96,68,7A,94,04, 7A,92, 
7A,94,08,00,41,32,1A,60,04,62,5C,1C,60,04, 
1E,86,1E,60,08,00,74,32,0A,74,5C 

420 DATA OA,74,86,0A,04,2F,03,0C,1A,01,0C, 
44,01,0C,59,02,0E,6£,01,0E,83,02,00,00,00, 
00,73,86,30,4A,80,2F,24,89,92,62,4E,7E,00, 
32,11,1E,82,04,14,11,47,11,01,00 

430 DATA O0,1E,1A,01,0C,2F,01,1E,44,01,2E, 
59,01,3E,6E,01,4E,83,01,5E,6E,01,6E,59,01, 
7E,44,01,8C,32,01,00,00,8C,08,00,00,A6,86, 
14,34,30,34,4C,34,68,34,84,34,00 

440 DATA 00,00,00,00,00,00,C8,86,04,80,92, 
80,92,81,92,56,28,7E,00,8C,68,70,94,08,2C, 
3E,2C,52,08,00,28,5C,28,4C,08,00,28,32,1B, 
1C,83,12,78,86,09,5€E,5C,0F,10,1A 

450 DATA 02,1C,2F,02,04,44,02,1C,59,02,0%, 
6E,02,5E,71,01,64,47,01,00,24,7E,10,00,68, 
62,30,08,5A,38,00,00,23,87,04,80,04,56,92, 
81,2C,80,28,80,00,04,92,04,24,08 

460 DATA 64,92,3E,6A,04,00,20,32,18,42,08, 
7E,32,52,7C,04,78,5C,52,80,04,14,5C,14,&2, 
08,00,04,1A,01,04,2F,03,90,2F,03,98,44,0i, 
94,59,02,04,5C,02,04,71,01,04,86 

470 DATA 1E,00,00,2C,8C,00,1A,B1,5E,81,00, 
68,87,28,54,04,80,78,57,6E, 7E,2E,80,00,0C, 
8C,0C,40,08,6E,68,60,94,08,58,3E,58,8C, 08, 
96,11,32,64,04,00,00,0C,2F,0F,0&4 

480 DATA 59,0F,0C,80,0F,4C,1A,02,4C,2F,02, 
4C,44,02,4C,59,02,4C,6£,02,4C0,83,02,4C,98, 
02,58,83,0F,60,5C,0F,58,32,0F,8C, 71,02,8C, 
47,02,00,48,98,15,54,98,15,00,26 

490 DATA 35.00.78.7E.32.54,00,C8,87,04,80, 
6C,80,04,40,6C,40,04,80,00,42,92,42,72,08, 
00,08,5C,08,66,08,3E,41,10,5E,04,28,23,0A, 
64,08,00,94,1A,02,7A,2F,02,94,44 

500 DATA 02,7A,59,02,94,6E,02,7A,83,02,0%4, 
86,00,42,86,00,00,76,86,12,00,0C,8C,00,50, 
81,64,81,00,1A,88,04,80,92,80,54,42,6C,80, 
2C,B0,00,04,95,04,42,08,6£,95,54 

510 DATA 8C,08,0C,74,0C,34,08,78,74,48,92, 
04,04,53,04,42,08,64,11,06,60,04,00,00,0%, 
20,0F,64,20,0E,4E,17,02,04,47, 24,04,32,01, 
0C,68,24,04,89,24,0C,59,02,8C, 7A 

520 DATA 02.00.00.2C.26,0€,26,4C,8F ,3E,6E, 
4C,40,6E,40,78,26,00,38,42,1A,42,24,B1,82, 
42,00,00,9F,19,8E,19,7F,32,77,32,77,32,77, 
25,7F,00,77,25,6A,00,5F,32,5F,32 

530 DATA 5F,25,64,00,5F,25,59,00,50,32,50, 
32,50,25,54,00,50,25,3C,00,50,96,5F,32,59, 
32,59,25,5F,00,6A,32,59,32,5F,32,5F,25,6A, 
00,77,32,5F,32,6A,32,8E,32,7F,32 

540 DATA 77,32,6A,96,9F,19,8E,19,7F,32,77, 
32,77,32,77,25,7F,00,77,25,6A,00,5F,32,5F, 
32,5F,25,64,00,5F,25,59,00,50,32,50,32,50, 
25,54,00,50,25,3C,0D,50,96,77,32 

550 DATA 47,32,50,32,59,32,5F ,32,6A,32,77, 
32,7F,32,77,32,6A,32,5F,25,59,00,5F,25,77, 
00,6A,32,77,32,9F,25,8E,00,7F,25,77,0D,6A, 
25,5F,00,59,32,59,32,59,32,59,32 

560 DATA 59,25,5F,00,59,64,54,32,50,32,50, 
32,50,25,59,00,5F,25,59,00,50,64,00,32,5F, 
32,59,32,59,32,59,32,59,32,59,25,5F,00,59, 
64,54,32,50,32,50,32,50,25,59,0D 

570 DATA 5F,25,59,00,50,64,00,32,77,32,47, 
32,47,32,3C,48,47,19,50,32,50,25,47,00,50, 
25,59,00,5F,32,59,32,59,32,96,48,59,19,5F, 
32,5F,25,59,00,5F,25,6A,00,77,32 

580 DATA 47,32,47,10,43,10,3F,10,3C,48,47, 
19,50,32,50,25,47,00,50,25,59,00,5F,32,59, 
32,59,32,7F,32,6A,32,77,25,9F,00,7F,32,77, 
32,00,00,00,00,00,00,00,00,CD0,D9 

590 DATA 92,97,CD,0E,8C,3A,A3,95,FE,0A,30, 
14,C6,30,11,F8,00,21,40,01,01,10,06,F0,21, 
DC,94,C0,E3,94,18,20,11,98,00,21,40,01,01, 
10,06,F0,21,0C,94,3E,31,F0,E5,CD 

600 DATA E3,94,F0,E1,3A,A3,95,06,0A,C6,30, 
C0,E3,94,06,E0,05,C0,F7,90,C1,10,F9,CD,6C, 
8B,ED,58,87,95,1A,6F,13,1A,67,13,1A,4F,97, 
47,11,E6,95,E0,80,97, 06,10,C5,F5 

610 DATA 01,00,00,C0,32,8C,F1,C1,3C,10,F3, 
21,C7,00,11.01.82,C0,1B,8€,21,C7,42,11,27, 
83,C0,18,8€E,21,C7,7E,11,68,83,CD,18,8E,21, 
BE,00,11,BE,83,C0,1B,8E,C0, 71,91 
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620 DATA CD,94,91,21,C7,9C,11,A4,95,06,01, 
C0,79,91,21,A1,95,36,58,23,36,02,21,86,95, 
36,05,21,09,00,22,8C,95,3E,01,32,09,8E,21, 
A9,01,22,88,95,11,00,00,21,00,00 

630 DATA CD,10,80,21,50,88,22,6F,95,CD,opc, 
91,21,19,04,22,05,8E,11,E5,83,CD0,42,8E, 11, 
A4,80,C0,18,8E,C0,06,88,3A,85,95,FE,03,C8, 
FE,02,28,0C,3A,A4,95,87,C8,30,32 

640 DATA A4,95,C3,90,89,CD,A7,8C,97,CD0,DE, 
88,97,32,86,95,21,2C,01,22,88,95,21,02,00, 
22,8C,95,E0,58,A1,95,21,7C,01,05,C0,EA,BB, 
01,05,21,74,01,C0,F6,88,01,18B,18B 

650 DATA 18,1B,E5,05,06,01,C0,C0,8E,CD, 71, 
91,2A,88,95,11,03,00,19,22,88,95,21,85,95, 
CD,AA,BC,CO,F7,90,01,E1,7A,B7,20,C9,78,FE, 
54,30,C4,21,A9,01,22,88,95,2A,8B7 

660 DATA 95,23,23,23,22,87,95,3A,A3,95, FE, 
OF,CA,43,94,21,A3,95,34,C3,90,89,C0,24,B8, 
E6,1F,47,C0,46,88,C0,2A,8C,C0,00,80,C0,09, 
BB,FE,20,CC,48,91,FE,FC,CA,5F,91 

670 DATA FE,7F,CC,68,91,FE,00,CC,65,91,CD, 
45,8C,CD,08B,8E,CD,9E,91,C0,F9,92,3A,D8,8E, 
87,28,C8,3A,07,8E,87,28,C2,18,CC,CB,60,3A, 
08,8E,28,07,87,20,04,3C,32,08,8E 

680 DATA 2A,05,8E,CB,50,28,47,87,28,0A,3E, 
04,32,07,8E,97,32,09,8E,C9,25,C0,5F,90,DA, 
F6,88,25,CD,5F,90,0A,F6,88,97,32,09,8E,2A, 
05,8E,11,E3,83,CD,18,8E,25,25,11 

690 DATA E5,83,CD,42,8E,3A,DA,8E,EE,01,32, 
DA,8E,11,00,80,28,03,11,52,80,C0,18,8€E,22, 
05,8E,C9,C8,58,28,50,87,28,08,3E,08,32,07, 
8E,3E,01,32,09,8E,C9,7C,C6,08,67 

700 DATA CD,5F,90,38,39,24,C0,5F,90,38,33, 
3E,01,32,09,8E,2A,05,8E,7C,FE,98,CA,44,91, 
11,E3,83,C0,18,8E,24,24,11,E5,83,C0,42,8E, 
3A,DA,8E,EE,01,32,0A,8E,11,A4,80 

710 DATA 28,03,11,F6,80,CD,1B,8E,22,05,8£, 
C9,FE,05,CA,06,91,FE,03,CA,06,91,2A,D5,8E, 
ES,25,C0,5F,90,E1,0C,F7,90,E5,7C,C6,08,67, 
C0,5F,90,E1,DC,F7,90,3A,08,8E,8B7 

720 DATA CO,2C,C0,2E,90,0C,F7,90,FE,08,CA, 
06,91,C9,3A,08,8E,87,C0,2A,05,8€E,70,06,14, 
6F,CD,2E,90,08,3E,09,32,08,8E,3E,02,32,07, 
8E,C9,3A,08,8E,87,C8,2A,D5,8E,3cC 

730 DATA 32,08,8E,FE,09,30,50,2C,2C,CD,2E, 
90,0C,F0,80,2C,C0,2E,90,0C,F0,80,3A,07,8E, 
FE,03,30,10,3A,09,8E,8B7,11,52,80,CA,13,8D, 
11,F6,80,C3,13,80,FE,04,20,14,25 

740 DATA CD,5F,90,0C,0C,80,25,C0,5F,90,0c, 
0C,80,11,52,80,C3,13,80,7C,C6,08,67,CD,5F, 
90,DC,0C,80,24,C0,5F,90,DC,DC,80,2A,05,8£, 
2C,2C,2C,24,24,11,F6,80,C3,13,8D 

750 DATA 70,06,14,6F,C0,2E,90,0C,A4,80,2D, 
CD,2E,90,0C,A4,80,2A,D5,8E,2D,20,20,3A,D7, 
8E,FE,03,30,10,3A,09,8€E,87,11,52,80,CA,1ı3, 
80,11,F6,80,C3,13,80,FE,04,20,13 

760 DATA 25,C0,5F,90,0C,0C,80,25,CD,5F,90, 
0C,DC,80,11,52,80,18,1C,7C,C6,08,67,CD,5F, 
90,0C,0C,80,24,C0,5F,90,0C,0C,80,2A,05,8£, 
20,20,20,24,24,11,F6,80,05,&5,21 

770 DATA E5,83,01,50,00,3E,0F,ED,81,20,0%, 
28,36,00,23,EA,10,80,21,E5,83,01,50,00,3E, 
OA,E0,81,20,04,28,36,00,23,EA,30,80,21,6&5, 
83,01,50,00,3E,05,E0,81,20,04,28 

780 DATA 36,00,23,EA,43,80,2A,D5,8E,11,E3, 
83,C0,18,8E,E1,11,E5,83,CD,42,8E,01,CD,ıB, 
8E,22,05,8E,3A,D08,8E,FE,09,30,18,2A,88,95, 
11,19,00,87,E0,52,22,88,95,3E,01 

790 DATA 32,86,95,21,85,95,CD,AA,BC,C9, 70, 
06,14,6F,CD,2E,90,DC,A4,80,2A,88,95,11,19, 
00,19,22,88,95,3E,02,32,86,95,21,85,95,CD, 
AA,BC,C9,FE,03,28,08,FE,05,28,0%4 

800 DATA FE,08,38,09,FE,0E,02,62,8E,E1,C3, 
06,91,11,31,84,06,04,1A,87,C0,13,10,FA,21, 
A9,01,22,88,95,E1,3A,08,8E,21,07,8£,36,00, 
23,36,00,FE,18,02,06,91,C9,FE,07 

810 DATA 28,0D,FE,08,28,09,FE,0E,02,62,8E£, 
E1,C3,06,91,3E,01,32,07,8E,3A,08,8E,30,32, 
D8,8E,E1,C3,45,8C,FE,09,C8,FE,OA,C8,FE,07, 
28,00,FE,08,28,09,FE,0E,02,62,8E 

820 DATA E1,C3,06,91,3E,09,32,D8,8E,E1,C9, 
€E5,05,C5,05,5C,97,67,57,CD,10,BC,EB,Ei,46, 
23,7E,23,C5,06,00,4F,F5,05,ED,B0,D1,E8,CD, 
26,BC,E8,F1,C1,10,EE,C1,D1,E1,C9 

830 DATA E5,05,C5,05,5C,97,67,57,CD0,10,Bc, 
01,06,14,C5,01,04,00,E5,ED,BO,E1,CD,26,BC, 
C1,10,F2,C1,01,E1,C9,11,E8,95,E5,2A,DS,8E, 
06,05,1A,13,C6,0A,94,FE,14,30,08 
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AUS DEM SYBEX-ANGEBOT 





Arbeiten mit dBASEII 
Benutzern eines CPC vermittelt ein echter Ex- 
perte in diesem Buch alle Kenntnisse, die für 
den erfolgreichen Einsatz von dBASE Il wichtig 
sind, z.B.: Installation und Programmieren mit 
dBASE II, Editieren von Dateien mit WordStar, 
Tips und Tricks. Jeder Lernschritt wird durch 
praxisgerechte Beispiele ergänzt. Und zwar so, 
daß dem Leser die Umsetzung dann wirklich 
problemlos möglich ist. Ein Buch, das In jeder 
Arbeitsphase weiterhilft. 


227 Seiten/mit Abb. Best..Nr:440 DM48,-" 


Schneider CPC - 
Da Kama rtäche er " . t: 22 

Arbeiten mit Turbo Pascal 
Der Bestseller “Das Turbo Pascal Buch“ wurde 
speziell für Besitzer eines CPC überarbeitet. So 
ermöglicht es den optimalen Einsatz der lei- 
stungstähigen Programmiersprache - auf die 
CPC-Arbeits- und Systemumgebung zuge- 
schnitten - und durch zusätzliche Informatlo- 
nen ergänzt. Zahlreiche Beispiele veranschau- 
lichen die vorgestellten Programmierkonzepte, 
Übungen zu jedem Kapitel machen dieses 
leicht verständlich geschriebene Buch für Ein- 
steiger zur unentbehrlichen Arbeitshilfe, 


296 Seiten/mit Abb Best.-N.:441 DM4,-* 


Das Schneider epe 








. PER Freie 


Grfibuch 
Die vielfältigen Grafikmöglichkeiten Ihres 
Schneider CPC (464, 664 und 6128). Von einer 
allgemeinen Einführung über ergänzende Gra- 
fikbefehle, Erstellung von Grafiken mit dem Joy- 
stick, Darstellung zwei- und dreidimensionaler 
Diagrammformen, künstlerische Grafiken, Zu- 
sammenspiel zwischen Grafik und Datenträger 
bis hin zur Hardcopy, 


328 Seiten/zahlr. Abb, Best.-Nr:442 DM48,-* 


Schneider CEPC - 
Erfolg mit Multiplan. 

Ein didaktisch hervorragendes Lehrbuch und 
Nachschlagewerk für CPC-Besitzer, die das Ta- 
bellonkalkulati m anwenden wollen, 
Das Buch ist die überarbeitete, auf den CPC zu- 
geschnittene Version des Bestsellers *Erfolg mit 
Multiplan* und führt Schritt für Schritt In das 
Programm ein. An konkreten len wird or- 
klärt, welchen Nutzen CPC-Besitzer mit Multi- 
plan in der Praxis haben, 

200 Seitenka.45Abb. Bast..Nr:445 DM48,-* 





‚AUS DEM DATA-BECKER-ANGEBOT 
Das Floppybuch zum CPC 


Was man alles aus der DDI-1 des CPC 4864, 
CPC 664 und CPC 6128 holen kann, zeigt die- 
sos Buch auf eindrucksvolle Weise. Neben den 
nun Erklärungen und einem ausführlichen 
DOS-Listing gibt es zahlreiche Utilities: eine 
komfortable Dateiverwaltung, einen Disk- 
Manager. Selbst CP/M-Grundiagen und die re- 
lative Datelverwaltung werden erklärt. So findot 
wirklich jeder CPC-Bositzer in diesem Buch ei- 
nen wertvollen Ratgeber. 


422 Seiten Best.-Nr. 412 DM49,-* 


s CP/M-Trainingsbuch 











Beherrschen Sie CP/M. Dieses Buch hilft Ihnen 
dabei. Von den ersten Schritten bis zum perfek- 
ten Umgang. Dabei werden natürlich die Versio- 
nen 2.2 und 30 für Schneider CPC 464, 664 und 
6128 berücksichtigt, Dieses CP/M- 
Trainingsbuch bietet ein wenig mehr als ande- 
re: zum Beispiel Hi me, mit denen Sie 
in der Lage sind, auch fremde Diskettenforma- 
te zu lesen oder Submit-Dateien zu erstellen, 


260 Seiten Best.-Nr. 213 DM49,-* 


" Unabhängig von der Anzahl der bestellten Bücher berechnen wir 
für das Inland 4,— DM bzw. für das Ausland 6,— DM Porto und Ver- 
packung. Bitte benutzen Sie unsere Bestellkarte, 


DMV-Verlag - Postfach 250 : 3440 Eschwege 


buchzumCPpC. 


Wer seinen CPC wirklich beherrschen will, der 
muß sich mit dam Thema Maschinensprache 
beschäftigen. Von den Grundlagen bis zur Pro- 
grammlerung des Z60-Prozessors. Das Maschi. 
nensprachebuch zum CPC hilft Ihnen von An- 
fang an. Mit einer genauen Beschreibung allor 
Befehle und ausführlichen Beispielen, mit Hin- 
weisen zur Benutzung der Systemroutinen und 
einem Assembler/Disassembler sowie einem 
Monitor zum Abtippen. So macht der Einstieg 


Das Maschinensprache- 


330 Seiten Best-Nr.415 DM39,-' 
Das große Grafikbuch 
zumCPC 0.0.0. 





Spektakuläre Grafik auf dem CPC sei nicht mög- 
lich. Zwei Top-Autoren beweisen das Gegenteil: 
Mit CPC-Chart - dem Diagrammgenerator, mit 

- dem Arcade-Game, mit CPCs Worid 
+ dem 3-D-Animationsprogramm, mit Vektorgra- 
fik, mit Sprites... Ja. Sie haben richtig gelesen: 
Wir reden von den Grafikmöglichkeiten Ihres 
CPC - inklusive 6128 und Joyce. 


589 Seiten Best.-Nr.416 DM49,-" 


 Programmw 





_ Programmwissen pur 
‚im Westentaschenformat 
Führer zum CP/M Best.-Nr. 452 DM 19,80* 





Das große Buch der Public-Domain-Software 
Freie CP/M-Programme für 
Commodore 128, 
Schneider CPC und Joyce 
Public-Domain-Software setzt sich inzwischen 
auch in Europa durch. Diese Programme tragen 
koln Urheberrecht und dürten deshalb mit Hob- 
byfreunden getauscht werden, Doch gerade die 
großen Sammlungen für das Betriebsystem 
CPI/M enthalten neben wahren „Juwelen“ auch 
viel unbrauchbares Material. 

Der bekannte Fachjournalist Martin Kotulla hat 
es sich zur Aufgabe gemacht, die Idee der 
Public-Domain-Software auch In Deutschland 
populär zu machen. Aus den großen amerikanl- 
schen Sammlungen hat er die interessantesten 
Programme herausgesucht, übersetzt, an 
Commodore- und Schneider-Computer ange- 
paßt und detailliert In diesem Buch dokumen- 
tiert. 

Mit einem Wortcoupon aus dem Buch erhalten 
Sie die Programme beim Autor zu einem beson- 


ders günstigen Preis. 
Best.-Nr. 410 DM34,80° 


229 Seiten 

Das BASIC-Buch zum 6128 
BASIC macht Spaß. Man muß es nur richtig er- 
klärt bokommen. Und un das tut das große 
BASIC-Buch zum CPC 6128. In diesem Buch 
steckt mehr als Einsteigerwissen: Varlablen, 
Zahlensysteme, Bits und Bytes, Tokens, String- 
bearbeitung, Sortierung, Laufschrift, selbstde- 
finierte Zeichen, Windows, Fehlerbehandlung, 
Kopierschutz, Grafiken, Soundprogrammie- 
rung, relative Datelen .... Das verstehen wir un- 


tor Vielfalt. 
276 Seiten Best.-Nr. 461 DM 39,-* 








CPC Hardware- 

erweiterungen 
Speziell für den Hobbyelektroniker, der mehr 
aus selnam CPC machen möchtel Von nützli- 
chen Tips zur Platinenherstellung über Adre3- 
decodierung, Adapterkarten und Interfaces bis 
zur EPROM-Programmierboard und 
-Programmiernetzteil oder Motorsteuerung für 
Gleich- und Schrittschaltmotoren werden mach- 
bare Erweiterungen ausführlich und praxisnah 


beschrieben. 
Best.-Nr. 464 DM49,-" 


445 Seiten 
ER: 
ge 
- und 
rlag 





FOR NT 27 rs ir 






840 DATA 1A,C6,16,95,FE,22,38,05,13,10,EC, 
E1,C9,18,21,09,05,22,00,A0O,1A,67,13,1A,6F, 
11,00,A0,C0,18,8E,3A,86,95,30,32,86,95,21, 
73,95,C0,AA,BC,06,32,C0,C0,8E,CO 

850 DATA 71,91,E1,34,86,95,87,C0,E5,21,1&, 
02,22,00,A0,21,19,9C,11,00,A0O,CD,1B,8E,El, 
C9,21,97,95,23,23,23,23, 7E,FE,09,20,05,36, 
00,28,18,F6,34,10,EC,C9,19,04,00 

860 DATA 00,00,00,85,05,C5,21,0C,03,22,00, 
AO,0D,21,F3,95,00,66,00,7C,87,28,23,00,6£, 
01,11,00,A0,C0,18,8E,00,46,04,CD,21,8F,DD, 
74,00,00,75,01,3A,71,95,3C,32,71 

870 DATA 95,11,05,00,00,19,18,06,3A,72,95, 
EE,01,32,72,95,C0,03,8F,C1,01,E1,C9,CB,40, 
28,24,65,2C,C0,91,90,0A,C5,8F,2C,2C,F1,3A, 
72,95,87,11,81,81,28,03,11,07,81 

880 DATA CD,18,8E,00,7E,02,80,00,00,36,04, 
02,C9,CB,48,28,28,E5,70,D6,0E,6F,C0,91,90, 
DA,C5,8F,E1,20,20,20,34,72,95,87,11,81,81, 
28,03,11,07,81,C0,18,8E,0D,7E,03 

890 DATA 80,08,00,36,04,01,C9,C8,50,28,23, 
E5,25,25,C0,C6,90,0A,C5,8F,F1,3A,72,95,B7, 
11,81,81,28,03,11,07,81,C0,18,8€,00,7E,02, 
8C,08,00,36,04,08,C9,CB,58,C8,E5 

900 DATA 7C,C6,07,67,C0,C6,90,38,1C,E1,24, 
24,3A,72,95,87,11,81,81,28,03,11,07,81,C0, 
18,8€,00,7E,03,8C,00,00,36,04,04,C9,E1,11, 
B1,81,CD,18,8E,El,E1,E1,E1,C3,06 

910 DATA 91,00,23,21,06,05,22,00,A0,0D,66, 
00,7C,87,28,20,00,6E,01,11,00,A0,CD,1B,8E, 
00,46,04,C0,1A,90,00,74,00,00,75,01,21,71, 
95,34,11,05,00,00,19,18,09,3A, 71 

920 DATA 95,67,FE,06,30,08,3E,06,94,47,C5, 
C0,F7,90,C1,10,F9,97,32,71,95,C9,C8,50,28, 
08,25,25,11,91,81,C3,8F,8F,24,24,11,91,81, 
C3,88,8F,E5,05,05,5C,97,67,57,CB 

930 DATA 23,CB,12,C8,23,CB,12,C8,25,CB,14, 
06,08,C5,05,E5,C0,F0,88,E1,01,C1,87,20,08, 
13,13,13,13,10,EE,C1,01,E1,87,C9,C1,D1,E1, 
37,C9,&5,05,C5,5C,97,67,57,C8,23 

940 DATA CB,12,C8,23,C8,12,C8,25,CB,14,06, 
14,C5,05,E5,C0,F0,88,&1,01,C1,87,28,08,FE, 
0A,28,04,FE,09,20,02,28,28,10,E8,C1,D1,El, 
87,C9,E5,05,C05,5C,97,67,57,C8,23 

950 DATA C8,12,C8,23,C8,12,C8,25,C8,14,06, 
06,C5,05,E5,C0,F0,88,E1,01,C1,FE,03,28,A7, 
FE,06,28,A3,FE,02,28,9F,13,13,13,13,10,E5, 
C1,01,E1,87,C9,&5,05,C05,5C,97,67 

960 DATA 57,C8,23,C8,12,C8,23,C8,12,CB,25, 
C8,14,06,0C,C5,D5,E5,C0,FO,8B,El1,DI,C1,FE, 
02,CA,5A,90,FE,03,CA,5A,90,28,28,10,E9,C1, 
01,E1,87,C9,06,05,C5,06,86,00,00 

970 DATA 00,00,10,FA,C1,10,F4,C9,C0,A7,BC, 
21,7C,95,CD0,AA,8C,97,32,08,8E£,32,07,8E,01, 
06,00,C0,32,8C,01,06,00,C0,38,8C,06,02,C5, 
06,&3,C5,C0,F7,90,C1,10,F9,C1,10 

980 DATA F3,97,01,00,00,C5,C0,32,8C,C1,CD, 
38,8C,21,85,95,36,01,E1,C9,21,85,95,36,02, 
E1,C9,E5,C0,86,8C,E1,C0,06,88,F5,C0,10,8D, 
F1,FE,20,CA,89,8C,18,EC,21,85,95 

990 DATA 36,03,C9,3E,2A,32,F9,92,C9,3E,C9, 
32,F9,92,C9,21,C7,1E,11,97,95,06,05,C5,1A, 
13,05,30,47,11,21,82,78,C6,10,10,FC,5F,CD, 
18,8E,7C,C6,04,67,01,C1,10,E6,C9 

1000 DATA 21,C7,5A,11,9C,95,06,05,18,D8,CD 
‚00,80,7C,FE,01,C0,70,FE,2C,08,21,00,00,11 
‚00,00,C0,10,80,97,C0,0E,88,E0,58,A1,95,21 
‚7C,01,05,C0,EA,88,01,05,21,74,01 

1010 DATA CD,F6,88,01,18,18,18,18,ED,53, Al 
‚95,7A,87,C0,78,FE,50,C0,C3,06,91,11,48,81 
‚06,10,2E,81,26,01,C0,18,8£,26,9C,CD,1B,8E 
‚70,06,06,6F,10,F0,06,28,26,01,2E 

1020 DATA 87,C0,18,8E,2E,05,C0,18,8E,7C,C6 
‚04,67,10,F0,E0,48,E6,95,11,56,81,0A,87,28 
‚15,67,03,0A,6F,03,0A,03,C5,47,C0,1B,8E, 7C 
‚c6,04,67,10,F7,C1,18,E7,11,48,81 

1030 DATA 03,0A,87,28,15,67,03,0A,6F,03,0A 
‚03,C5,47,C0,18,8E,70,06,06,6F,10,F7,C1,18 
„E7,11,F0,81,03,C0,CC,92,11,17,82,03,CD,Cc 
‚92,11,62,81,01,E8,95,C0,CC,92,3E 

1040 DATA 03,C0,DE,88,21,7C,01,06,05,C5,85 
‚11,50,00,C0,EA,88,E1,E5,11,84,00,C0,F6,58B 
‚E1,28,28,C1,10,EA,3E,09,C0,DE,88,21,7C,01 
‚06,05,05,E5,11,88,00,CD,EA,BB,El 

1050 DATA E5,11,58,02,C0,F6,88,E1,28,2B,C1 
‚10,EA,3A,A3,95,FE,0A,20,14,11,34,00,21,5& 
‚01,01,0E,04,00,21,6F,94,F0,21,C7,94,C0,55 
‚94,21,A5,95,97,06,10,E5,C5,F5,46 





















































































Listing Goldrush 


40 Pe 9'89 


(7234) 


(7198] 


[8921] 


[ 7517) 


(7787) 


(8799) 


(8055) 


[8891] 


{7581) 


(8219) 


[6999] 


(7996) 


[6952] 


(8385) 


[7990] 


(7503) 


(7125) 


[9298) 


[6898] 


[8801] 


[10665] 


(8392) 






1060 DATA 48,C0,32,8C,F1,C1,E1,23,3C,10,F1 
‚c9,0A,87,C8,67,03,0A,6F,03,C0,18,8E,18,F3 
‚97,C0,DE,B8,21,01,00,06,C8,C5,E5,11,00,00 
‚CcD,EA,BB,E1,E5,11,80,02,CD,F6,BB 

1070 DATA E1,23,23,C1,10,EA,C9,2A,6F,95,7E 
‚32,91,95,23,7E,87,20,08,21,50,88,22,6F,95 
‚18,EC,32,95,95,23,E5,21,8E,95,CD,AA,BC,El 
‚00,22,6F,95,C9,97,C0,0E,8C,3E,2A 

1080 DATA 32,F9,92,3E,01,32,A3,95,21,89,95 
‚22,87,95,21,50,88,22,6F,95,E0,58,87,95,1A 
‚6F,13,1A,67,13,1A,4F,97,47,11,E6,95,E£0,80 
‚01,00,8C,3E,06,E0,79,01,00,80,3E 

1090 DATA 00,E£0,79,C0,0C,91,21,01,01,C0,75 
‚B8,06,28,C05,C0,F9,92,C1,3E,20,C0,5A,88,10 
‚F4,11,78,00,21,8C,01,01,02,02,00,21,C0,94 
‚F0,21,C7,94,C0,58,94,3A,A3,95, FE 

1100 DATA 0A,30,08,C6,30,F0,21,C7,94,CD,E3 
‚„94,18,17,F0,21,C7,94,3E,31,F0,E5,C0,E3,94 
‚FO,E1,3A,A3,95,06,0A,C6,30,C0,E3,94,01,00 
‚8C,3€E,06,E0,79,01,00,80,3E,19,ED 

1110 DATA 79,06,50,C5,CD,F9,92,CD,DB,8E,CD 
‚F7,90,C0,F7,90,C0,24,88,C1,FE,10,C8,10,EA 
‚c0,6C,8B,3A,A3,95,FE,0F,C8,3C,32,A3,95,2A 
‚87,95,23,23,23,22,87,95,C3,38,93 

1120 DATA 11,00,00,21,8E,01,01,0F,03,00,21 
‚75,94,F0,21,CE,94,CD,58,94,11,78,00,21,AO 
‚00,01,02,02,00,21,7E,94,F0,21,05,94,CD0,5B 
‚94,11,78,00,21,70,00,00,21,88,9%4 

1130 DATA CD,58,94,11,78,00,21,40,00,D00,21 
‚92,94,C0,58,94,11,48,00,21,0E£,00,01,01,01 
‚00,21,9C,94,F0,21,CE,94,C0,58,94,C9,C0,D9 
‚92,11,84,00,21,8E£,01,01,05,01,DD 

1140 DATA 21,80,94,F0,21,C7,94,C0,58,93,C9 
‚00, 7E,00,87,C8,F0,E5,0D,E5,C0,E3,94,DD,El 
‚FO,E1,00,23,18,EC,42,4F,4E,55,53,00,47,4F 
‚40,44,52,55,53,48,00,50,4C,41,59 

1150 DATA 20,47,41,40,45,00,48,49,47,48,53 
‚43,4F,52,45,00,44,45,40,4F ,20,4D,4F ,44,45 
‚00,28,43,29,20,42,59,20,20,52,2E,20,44,45 
‚53,43,48,40,45,52,00,43,4F,4E,47 

1160 DATA 52,41,54,55,4C0,41,54,49,4F ,4E,53 
‚00,4C,45,56,45,4C,20,00,01,02,03,07,0C,0A 
‚OF,01,02,03,04,05,06,07,08,09,0A,08,0C,00 
‚0E,07,07,02,02,0C,0C,0C,C5,E5,F5 

1170 DATA 78,32,69,95,79,32,68,95,F1,E5,CD 
‚A5,88,C0,06,89,E5,00,E1,E1,06,07,C5,E5,05 
‚FO,7E,00,F0,23,C0,DE,88,0D, 7E,00,CB,3F,DD 
‚A6,00,17,06,07,C5,17,30,27,F5,D5 

1180 DATA 3A,69,95,47,C5,E5,05,C0D,EA,BB,D1 
‚E1,E5,05,E0,48,68,95,08,E0,42,ED,42,CD,F6 
‚88,01,E1,13,13,13,13,C1,10,E1,D1,F1,EB,ED 
‚48,69,95,09,09,09,09,E8,C1,10,C8 

1190 DATA D0,23,E0,53,60,95,01,E1,ED,48,68B 
‚95,E0,42,E0,42,C1,10,9F,C0,09,89,E1,ED,58 
‚60,95,18,18,C1,C9,00,00,00,00,00,00,00,00 
‚00,00,81,01,00,3E,00,00,00,3C,00 

1200 DATA 81,02,00,00,07,1E,0F,2C,01,04,00 
‚00,A9,01,00,00,06,00,02,03,00,00,00,00,0C 
‚00,00,00,00,00,00,00,00,00,00,00,00,58,02 
‚01,05,00,1A,0F,06,08,08,12,10,07 

1210 DATA 13,15,14,11,0E,0C,18,00,05,89,95 
‚35,84,38,70,84,41,81,84,41,F2,84,49,38,85 
‚48,83,85,36,89,85,55,0E,86,4C,5A,86,30,97 
‚86,13,AA,86,4C,F6,86,4F,45,87,60 

1220 DATA A5,87,48,E0,87,62,00 



































































10 /KEEEEEEEEEEkiEcEEE Een 
20 '*« LISTING 3 ”* 
30 '*« erzeugt das File GOLDRUSH, TAB ## 
40 ' RENESEEEEREREERER EEE EEE REFERENT 
50 OPENOUT"GOLDRUSH.TAB" 

60 FOR i=1 TO 10 

70 PRINT#9,100 

80 PRINT#9,"The best golddigger" 

90 NEXT 

100 CLOSEOUT 














Listing Goldrush 


(9377) 


[7462] 


[6369] 


[6568] 


[8564] 


[8605] 


[9614] 


[8492] 


[8077] 


[9222] 


[8091) 


[7878] 


[9029] 


(7394) 


[7999] 


[7874] 


(1332) 


[1476] 
[831] 
[1994] 
[1476] 
(1404) 
[315] 
[701] 
(2585) 
[350] 
[902) 





BASIC-Compiler für CPC 464/664/6128 


Der Turbo-Antrieb für Ihre BASIC-Programme! 


Haben auch Sie sich schon immer gewünscht, daß Ihre selbstgeschriebenen BASIC- 
Programme schneller laufen? Mit dem BASIC-Compiler von DMV ist das nun kein Problem 
mehr, denn 





- der Compller hat den vollen Sprachumfang des — die ausführliche deutsche Bedienungsanleitung macht Sie auf 
BASIC 1.1 (CPC664/6128). einfache Weise mit dem Umgang des Compilers vertraut. 

- das compilierte Programm Ist auf jedem CPC lauffähig. — viele Beispielprogramme veranschaulichen die Arbeitsweise des 

— unterstützt Integer- und Fließkomma-Arithmetik. Compilers und zeigen die Geschwindigkeitsvorteile auf, 

- ist kompatibel zu Vortex-Peripherie incl. Nutzen der - das Programm ist in 100% Maschinencode geschrieben. 
RAM-Disk. 

- Programme, die spezielle BASIC 1.1.-Befehle beinhalten, sind any dm ATET 
auch auf dem CPC464 lauffählg (außer FILL und MASK). Der BASIC-Compiler ist nur auf 3“-Diskette erhältlich. 

- der Compiler arbeitet unter CP/M, das heißt, alle CP/M- P m 2 
Dienstprogramme können genutzt werden. ; 

— bis 17 kByte Quellcode können problemlos compiliert werden. Best.-Nr.: 209 reis 69, >= DM 


- einzelne Programmtelle können ebenfalls compiliert werden 


(z.B. wichtig bei Nachladeprogrammen). Bitte benutzen Sie die Bestellkarte. 


Möchten Sie gerne in Assembler programmieren ? 


CPC Assembler Software und Trainingsbuch 





Das Buch: 


führt den Anfänger schrittweise in die Programmierung des Z80 ein. Dabei werden 
Vorkenntnisse nicht vorausgesetzt. Nach der Lektüre des Buches sind Sie mit dem 7 

Befehlssatz des Prozessors wie auch den Adressierungsarten vertraut. Anhand einer | 
Fülle von Programmbeispielen, die speziell auf den CPC 464 zugeschnitten sind, lernen 

Sie, nützliche Routinen in Maschinensprache zu entwickeln, die auf Ihrem Rechner 

sofort lauffähig sind. Dazu erfahren Sie, wie Sie die im ROM des Schneider CPC 
vorhandenen Hilfsroutinen sinnvoll für die Lösung eigener Probleme einsetzen können. 
Darüber hinaus lernen Sie einige spezielle Programme zur Erweiterung des Betriebs- 
Systems mit leistungsfähigen grafischen Befehlen kennen, die Sie in BASIC verwenden 
können, z.B. TRIANGEL, BOX und CIRCLE. Ein umfangreicher Anhang mit Erläuterun- 
gen des Befehlssatzes, des Assemblers sowie einer Vielzahl kommentierter Einsprung- 
adressen des Betriebssystem-ROMs rundet das Buch ab, 


Die Software: 


besteht aus einem menügesteuerten Z80 - Assembler. 

Mit seiner Hilfe können Sie nicht nur die im Buch erläuterten Beispielprogramme editie- 
ren und in Maschinensprache übersetzen, sondern auch selbst entworfene Programme 
entwickeln und testen. Für Ihre Arbeit stehen Ihnen Funktionen wie 

Einfügen - Löschen - Ändern von Programmzeilen - Abspeichern und Laden von 
Programmen auf Datenträgern wie Kassette und Diskette - Ausgabe von Listings 
auf Bildschirm und Drucker - Zahlenkonvertierung von der Menü-Ebene aus und - 
Durchführung von Zwischenrechnungen mit binären, hexadezimalen und dezimalen 
Zahlen zur Verfügung. Weiterhin erhalten Sie ein Trainingsprogramm, mit dessen Hilfe 
Sie den Umgang mit verschiedenen Zahlenformaten vertiefen können, und Programme zur Demonstration der grafischen Erweite- 
rungen des Betriebssystems. 








Buch mit Kassette Best.-Nr.: 446 Preis 59,- DM* 
Buch mit Diskette Best.-Nr.: 447 Preis 69,- DM* 


% Unabhängig von der Anzahl der bestellten Programme berechnen wir für das Inland 4,- DM bzw. für das Ausland 6,- DM Porto und Verpackung. 
Bitte benutzen Sie die Bestellkarte. 
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Programm 





Schnell kalkuliert - 


Geld gespart 


Mini-Calculator hilft den 
Überblick bewahren 


Oft ist es von Vorteil, wenn man sich über laufende Ko- 
sten eines Monats oder über noch größere Zeiträume ein 
Bild machen kann. Im Zeitalter der Elektronik haben 
hier allerdings Bleistift, Zettel und Radiergummi ihren 
Dienst eingestellt, unser CPC ist jetzt gefragt. Und da 
haben wir etwas für Sie: den Mini-Calculator. 


Das Programm Mini-Calculator ist 
eine Tabellenkalkulation, die es dem 
Anwender erlaubt, einfach Tabellen 
für eine Kalkulationsberechnung zu er- 
stellen. Sie als Computerbesitzer und 
Anwender des Programms arbeiten da- 
bei wie auf einem Papierblatt. Die ein- 
zelnen Felder können sowohl mit nu- 
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merischen als auch mit alphanumeri- 
schen Zeichen gefüllt werden. 

Nach dem Start des Programms er- 
scheint ein 18 x 8 Zeichen großes Feld, 
das Arbeitsblatt, auf dem alle Eintra- 
gungen gemacht werden können. Mit 
den Cursortasten oder dem Joystick 
läßt sich der Cursor auf die gewünschte 


Mini-Calculator er- 
laubt das einfache 
Erstellen von Kalku- 
lations-Tabellen... 


Position setzen, und mit Copy bestätigt 
man die augenblickliche Position, um 
in das im unteren Bereich des Bild- 
schirm stehende Menue zu gelangen. 
Die Anfangsbuchstaben der einzelnen 
Menüpunkte werden unterlegt darge- 
stellt. Nun braucht man nur noch den 
Anfangsbuchstaben des Menüpunktes 
zu drücken, und es erscheint der Menü- 
punkt auf dem Bildschirm. 


Die einzelnen Menüpunkte 
TEXT: Hier können Sie einen 
neun Zeichen langen 
Text eingeben. 
Dieser Menüteil ent- 
hält einen Taschen- 
rechner, mit dem Sie 
in den vier Grundre- 
chenarten rechnen 
können. 
Wählen Sie diesen 
Programmpunkt, ist es 
Ihnen erlaubt, mathe- 
matische Funktionen 
zu nutzen. 
An dieser Stelle kann 
man die Kopie eines 
Feldes machen. 
Dieser Programmteil 
dient zum Entfernen 
nicht mehr benötigter 
Zeilen, Spalten oder 
des gesamten Arbeits- 
blattes. 
Wählen Sie dieses, 
können Sie die Farben 
des Programms än- 
dern. 
Hier befindet sich der 
Datenteil des Pro- 
gramms. Sie können 
Daten speichern, la- 
den, das Direktory 
einsehen oder zwi- 
schen Tape (Kassette) 
oder Disc (Diskette) 
einstellen. 
Um alles Schwarz auf 
Weiß zu bekommen, 
können Sie hier ihre 
Tabellenkalulation 
ausdrucken. 
Es ist im Mini-Calcu- 
lator unter diesem Me- 
nüpunkt möglich, zwi- 
schen Großschrift, 
Kleinschrift und Run- 
den zu wählen. Außer- 
dem ist ein 
Zusammenfügen von Feldern 
möglich. Damit lassen 
sich unter dem Menü- 
punkt 


WERT: 


FUNKTION: 


KOPIE: 


LÖSCHEN: 


INK: 


ÜBERTRA- 
GEN: 


DRUCK: 


OPTION: 





CPC spiele 


zu unglaublichen Preisen 


CYRUS II Schach 


Das bewährte Schachprogramm mit 3D-Display, 
einstellbarer Spielstärke und deutscher 
Bedienungsanleitung 


Für alle CPCs 


Kassette jetztnur 10,- DM* 
Best.-Nr. 130 





STARTEST 


Action-Adventure für alle CPCs 


Kassette jetztnur 10,- DM* 
Best.-Nr. 103 


Diskette jetztnur 19,- DM* 
Best.-Nr. 104 





Fantastic Four 


Vier Superprogramme zum kleinen Preis: 


COCKAIGNE - Weltraum-Actionsspiel 
TERRANAUT I - science-Fiction- 


Adventure 
FRUITS - seschicklichkeitsspiel 
TERRANAUT I - Textadventure 


Für alle CPCs 


Diskette jetztnur 29,- DM* 
Best.-Nr. 1011 





CPC Power-Spiele-Paket 


18 tolle Spiele für alle CPCs 


4Diskettenjetztnur 49,- DM* 
Best.-Nr. 102 






SPECIAL OFFERS Ill 


9 Spiele für alle CPCs 


3Diskettenjetztnur 39,- DM* 
Best.-Nr. 107 





3D-Light Cycle: 

Das allseits bekannte und beliebte 
TRON-Spiel für zwei Personen jetzt 
wie im Film!! Erleben Sie dieses 
spannende und abwechslungs- 
reiche Actionspiel jetzt in einer 
neuen Dimension. Verblüffende und 
noch nie dagewesene 3D-Effekte 
sowie professioneller Sound lassen 
Sie in eine völlig andere CPC-Welt 
versinken. Diesen Super-Hit muß 
man 'live’ gesehen haben. 


3D-Labyrinth: 


Das beste Labyrinthspiel jetzt in Super-3D-Qualität. Auf der Suche .nach 
Hinweisen zum Passwort, das den mächtigen Zentralcomputer lahmlegen kann, 
lauern tausend Gefahren auf Sie. Die räumliche, perfekte 3D-Darstellung, 
superschneller Grafikaufbau und viele Überraschungen garantieren eine 






völlig neue Art von Spielvergnügen. 


Voraussetzungen: 
CPC 464/664/6128 mit Farbmonitor. Das 
Spiel 3D-Light Cycle kann ohne 3D- 


Brille auch auf Grünmonitor gespielt Best.-Nr. 1369 
Diskette jetzt nur 


werden, Darstellung dann in 2D. 


INKLUSIVE 3D-Brille 


39,— DM* 





GAME BOX 3 


Vier Super-Programme zum kleinen Preis. 


Die neue CPC-Spielebox enthält vier ausgesuchte 
TOP-Programme der Spitzenklasse. 
Da ist für jeden das Richtige dabeil 


1. Alphajet 

Lieben Sio Abonteugr und Gefahren Im Weltraum? Dann steigen Sio 
in den nouontwickolton Alphajet und erforschen die interstellaren 
Sonnensystomo. Vielfältige Gefahren lauern auf Ihrer Mission 
Erleben Sie mit Alphajot oin hochklassiges Actionspiel mit 
außergowöhnlicher Grafik und vielen tollen Effekten, 


2. Telefomanla 

Man schreibt das Jahr 1992. Das sogenannte Datenzeitalter hat be- 
gonnen. Alles kann per Datenübertragung von zu Hause aus erledigt 
werden, Das Problem: Einige Gebiete wurden bei der Vernetzung 
schlichtweg vergessen. Ihre Aufgabe besteht nun darin, als Einsatz- 
leiter vor Ort diese Vernetzung vorzunehmen, Verhandeln Sie also 
direkt mit den Hausbesitzern über Tarife und Anschlußmöglichkeiten 
Gutes Gespür ist hier gefragt, denn nicht jeder will auch an das 
Datennetz angeschlossen werden, Mit Telefomania erwartet Sie eine 
völlig neue Splelldee, die auch Sie begeistern wird 


3, Kampf den Insekten 

Übernehmen Sie die Rolle eines berühmten Gärtners. Ihre Aufgabe 
besteht in der behutsamen Pflege des weltschönsten und mehrfach 
preisgekrönten Gartens von Lord CPC, Erschwert wird dies durch 
verschiedenartige Insekten, die Immer wieder an Ihren herrlichen 
Pflanzen nagen und diese zerstören, Durch gezlelten Einsatz von 
Dünger und Sprays (ohne Treibgas) können Sie den unliebsamen 
Zeitgenossen zu Leibe rücken. Ein erlebnisreiches 
Geschicklichkeitsspiel für die ganze Familie mit vielen 
Überraschungen erwartet Sie. 


BES Rn U MEN 





4. Funbouncer 

Ihr bester Freund wurde vom bösen Zauberer entführt. Mutig und 
stark, wie Sie nun einmal sind, machen Sie sich sofort auf die Suche 
nach Ihrem verschwundenen Kumpan. Als Sie das Schloß des 
Zauberers erreichen, werden Sie und Ihr Freund in einen feuerroten 
Ball verwandelt. In dieser Gestalt müssen Sie nun den geheimen 
Ausgang des Gewölbes finden, um den Fluch zu verlieren. Doch 
Vorsicht; Vielfältige Gefahren, wie zum Beisplel scharfe Felskanten 
oder rostige Nägel, machen Ihnen neben anderen Zeitgenossen, die 
obenfalls verzaubert wurden, das Leben schwer. Funbouncer ist ein 
schnelles und farbenfrohes Actionspiel mit vielen Levels und eigenem 
Bild-Construction-Set, 


Für alle CPCs nur als 3-Zoll-Diskette 
Best.-Nr.: 1012 


29,- DM* 





= Unabhängig von der Anzahl der bestellten Produkte berechnen wir für das 
Inland DM 4,— bzw. für das Ausland DM 6,— Porto und Verpackung. 


Bitte benutzen Sie die Bestellkarte. 
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solaublich eigen? 


a 
Medianverlag 


Ta zz gBS,ö 


TEXT auch mehr als neun 
Zeichen eingeben. 
RADIEREN: Hierbei kann ein Feld 
komplett gelöscht 
werden. 

Wenn Sie fertig sind, 
können Sie hier das 
Programm verlassen. 
Mini-Calculator arbei- 
tet mit zwei Seiten, die 
Sie mittels dieser Op- 
tion anwählen können. 


QUIT: 


SEITE: 


Ein Beispiel: 


Nachdem man ’W’ für WERT ge- 
drückt hat, erscheint auf dem Bild- 
schirm “Rechenzahl“, Sie geben nun 
Ihren Rechenwert oder, zum Üben, ir- 
gendeine Zahl ein. Danach wird das 
Rechenzeichen verlangt, welches Sie 
ebenfalls eingeben. Als weiteres fehlt 
noch die Rechenzahl und entweder 
weitere Berechnungen mit Zeichen und 
Zahlen oder ein Gleichheitszeichen, 
um das Ergebnis zu bekommen und den 
Menüpunkt zu verlassen. Nachdem 
man K für KOPIE gedrückt hat, er- 
scheint auf dem Bildschirm ein Ar- 
beitsblatt mit den identischen Werten, 


für 464-664-6128 


10 'kkeEkeEEEe eu er ke re [1760] 


“.... 
20 'skaueees 
srrre* 

30 '#sareere8 


Mini - Calculator 1988 ** [2183] 


LE 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 *s (1671) 


... auf dem CPC, 
der damit den 
Überblick bewah- 
ren hilft 


indem Sie mit dem Cursor "herumwan- 
dern’ können, um den Bestimmungs- 
platz festzulegen. Nachdem man O für 
OPTION gedrückt hat, erscheint auf 
dem Bildschirm unter anderem BE- 
HALTEN DER COPY. Der User kann 
nun entscheiden, ob das Original nach 
dem Kopiervorgang gelöscht werden 
und das Original weiterbestehen oder 
der vorherige Zustand mit NORMAL 
hergestellt werden soll. Wenn Sie aus 


250 DEFINT o,u,r,],e 
260 seite=1:x=1:y=1:3=1:z=1 





Versehen in einen Menü-Unterpunkt 
gelangt sind, kommen Sie mit Hilfe der 
ENTER- Taste wieder in das Arbeits- 
blatt. In der letzten Zeile wird der ma- 
ximale Speicherplatz des Rechners so- 
wie der augenblicklich geladene Datei- 
name angezeigt. 
So, das war es an Erklärungen, bleibt 
uns nur noch, Ihnen gutes Gelingen mit 
dem neuen Programm zu wünschen! 
(Burkhard Vogt/jb) 


[1066] 
[2093] 


270 FOR a%=1 TO 2:FOR b%=1 TO 8:FOR c%=1 T [6390) 


;FRECHN)GN 


oO 18:dat$(a%,bX,cK)=CHR$(24)+" "+C 
HR$(24):NEXT c%,b%,a% 

280 GOSUB 2130:WINDOW 1,80,1,25 
290 LOCATE 2,24:PRINT ;CHR$(24);" 


[2042] 
Frei: ” [6942] 


Datei: STANDARD.MC 


“..... 

40 '#s##%sAutor:B.Vogt#*#*#=sWohnort:Paderbor 
nes 

50  ERERKEEE EE E  EKEREKE  EK * 
“a... 

so ' 

65 ON ERROR GOTO 3000 

70 MODE O0:PRINT"Einen Moment bitte!":FOR a 
=1 TO 1000:NEXT:MODE 2 

80 LOCATE 30, 8:PRINT CHR$(24);“ 
alculator ";CHR$(24) 

90 LOCATE 37,10:PRINT"1988"” 

100 LOCATE 35,13:PRINT"von B. Vogt" 

110 LOCATE 35,22:PRINT"Version 1.2” 

130% 

140 IF PEEK (&A000)=&21 THEN GOTO 220 ELSE 
MEMORY &9FFF 

150 FOR adr=&A000 TO BAOlT 

160 READ x$:POKE adr ,VAL("&"+x$):NEXT 

170 DATA 21,00,c0,01,ff,3f,11,00 

180 DATA 40,0ed,60,c9,21,00,40,01 

190 DATA ff,3f,11,00,c0,ed,bO,c9 

200 ' 

210 ' 

220 OPENOUT "Datei":MEMORY HIMEM-1:CLOSEOU 
= 

230 CLS:INK 1,0:INK 0,0:BORDER 0:PEN 1 

240 DIM dat$(2,8,18) 


Mini - € 


Listing Mini-Calculator 
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[2799] 
[1760] 
[117] 

[1698) 
[5655] 


[3476] 


(972) 
[1603] 
[1873] 
[117) 
[3536] 


[1123) 
[3406] 
[1310] 
[566) 
(871) 
[117] 
[117] 
[3308] 


[3729] 
[1115] 


AMSTRAD CPC 464/664/6128";CHR$(24) 

300 LOCATE 1,1:PRINT CHR$(150):LOCATE 2,1: 
PRINT STRING$(78,154):LOCATE 79,1:PRINT CH 
R$(156) 

310 LOCATE 1,2:FOR a=1 TO 23:PRINT CHR$(14 
9):NEXT 

320 FOR a=2 TO 24:LOCATE 79,a:PRINT CHR$(1 
49) :NEXT 

330 LOCATE 1,21:PRINT CHR$(151):LOCATE 2,2 
1:PRINT STRING$(78,154):LOCATE 79,21:PRINT 
CHR$(157) 

340 LOCATE 1,25:PRINT CHR$(147):LOCATE 2,2 
5:PRINT STRING$(78,154):LOCATE 79,25:PRINT 
CHR$(153) 

350 FOR a=2 TO 19:L0CATE 2,a+ti1:PRINT a-1:N 
EXT a:LOCATE 2,2:PRINT"I1-" 

360 LOCATE 9,2:PRINT"1":LOCATE 18,2:PRINT" 
2":LOCATE 27,2:PRINT"3":LOCATE 36,2:PRINT" 
4":LOCATE 45,2:PRINT"5":LOCATE 54,2:PRINT" 
6":LOCATE 63,2:PRINT"7":LOCATE 72,2:PRINT" 
8“ 

370 INK 1,26 

380 WINDOW 6,79,3,20 

390 ' 

400 STEUERUNG 

410 LOCATE x,y: PRINT dat$(seite,2,5):GOSUB 
2200 

420 IF e AND h=2 THEN 1380 


Listing Mini-Calculator 


(5136) 


[2237] 
[1444] 


[6509] 


[5290] 


[4888] 


[11645] 


[56] 
[1204] 
{117)] 
[787] 
[2377] 


[1455] 








Programm 









430 IF e AND h=1 THEN 1370 
440 IF e THEN 500 

450 IF 0 THEN LOCATE x,y:PRINT CHR$(24)+da 
t$(seite,z,s)+CHR$(24):IF 0 AND y>i THEN y 
=y-1:IF 0 AND s>1 THEN s=s-i 

460 IF u THEN LOCATE x,y:PRINT CHR$(24)+da 
t$(seite,z,s)+CHR$(24):IF u AND y<18 THEN 
ysy+tl:IF u AND s<19 THEN s=s+1 

470 IF 1 THEN LOCATE x,y:PRINT CHR$(24)+da 
t$(seite,z,s)+CHR$(24):IF 1 AND x>5 THEN x 
=x-9:IF 1 AND z>1 THEN z=z-1 

480 IF r THEN LOCATE x,y: PRINT CHR$(24)+da 
t$(seite,2,S)+CHR$(24):IF r AND x<63 THEN 
x=x+9:IF r AND z<9 THEN z=z#+1 

490 GOTO 410 

500 hi=z:h2=8:h3=x:h4=y 

510 ' 

520 "MENVEAUSWAHL 

530 WINDOW 2,78,22,23:LOCATE 11,1:PRINT;CH 
R$(24);"T";SCHR$(24):LOCATE 17,1: PRINT;CHR$ 
(24); "W" ;CHR$(24):LOCATE 23,1:PRINT;CHR$(2 
A);"F"SCHR$(24):LOCATE 33,1: PRINT;CHR$(24) 
ı"K";CHR$(24):LOCATE 40,1: PRINT;CHR$(24);" 
L";CHR$(24) 

540 LOCATE 50,1: PRINT;CHR$(24);"U";CHR$(24 
).: LOCATE 63,1: PRINT;CHR$(24) ;"D";CHR$(24): 
LOCATE 70,1:PRINT;CHR$(24);"I";CHR$(24):LO 
CATE 11,2: PRINT;CHR$(24);"R" ;CHR$(24):LOCA 
TE 21,2:PRINT;CHR$(24);"O";CHR$(24) 

550 LOCATE 31,2: PRINT;CHR$(24) ;"S" ;CHR$(24 
): LOCATE 38,2:PRINT;CHR$(24);"Q";CHR$(24) 
560 GOSUB 2270 

570 IF t$="t" THEN 720 

580 IF t$="w" THEN 910 

590 IF t$="u" THEN 1090 

600 IF t$="kK" THEN 1360 

610 IF t$="1" THEN 1440 

620 IF t$="d" THEN 1590 

630 IF t$="f" THEN 1650 

640 IF t$="i" THEN 1800 

650 IF t$="r" THEN 1900 

660 IF t$="o" THEN 1930 

670 IF t$="s" THEN 2050 

680 IF t$="q" THEN 2170 


690 GOTO 860 
700 ' 
710 'TEXT 


720 CLS:INPUT"Text: ",text$ 

730 IF zusammenf=0 THEN 830 ELSE WINDOW 6, 
79,3,20:w=1:G0TO 740 

740 maxf=8-z:a=LEN(text$):a=a/9:c=ROUND(a) 
750 IF c=a THEN a=a-1 

760 IF a<c THEN a=a 

770 IF a>maxf THEN a=maxf 

780 FOR b=z TO z+ta:dat$(seite,b,3)=MID$(te 
xt$,w,9):w=w+9:NEXT b 

790 FOR b=z TO z+a:1=LEN(dat$(seite,b,s)): 
r=9-1:FOR d=1 TO r:dat$(seite,b,s)=dat$(se 
ite,b,s)+CHR$(32):NEXT d:dat$(seite,b,s)=d 
at$(seite,b,s):NEXT b 

800 IF gross=1 THEN FOR b=z TO z+a:dat$(se 
ite,b,s)=UPPER$(dat$(seite,b,s)):NEXT b 
810 IF klein=1 THEN FOR b=z TO z+a:dat$(se 
ite,b,s)=LOWER$(dat$(seite,b,s)):NEXT b 
820 FOR b=z TO z+a:LOCATE x,y:PRINT dat$(s 
eite,b,s):x=x+9:NEXT b:z=hl:s=h2:x=h3:y=h4 
:GOTO 860 

830 a=LEN(text$):IF a>9 THEN text$=LEFT$(t 
ext$,9) 

840 a=LEN(text$):IF a<9 THEN r=9-a:FOR b=1 
TO ri;text$=text$+CHR$(32): NEXT 

850 text$=CHR$(24)+text$+CHR$(24):dat$ (sei 
te,z,s)=text$ 

8560 IF gross=1 THEN dat$(seite,z,s)=UPPER$ 
(dat$(seite,z,s)) 

870 IF klein=1 THEN dat$(seite,z,s)=LOWER$ 
(dat$(seite,z,s)) 

850 WINDOW 6,79,3,20:LOCATE x,y: PRINT dat$ 
(seite,2z,3):GOSUB 2130:WINDOW 6,79,3,20:6G0 
TO 410 


850 ' 

900 'WERT 

910 CLS:f1=0:f2=0:summe=O0 

920 INPUT"WERT: RECHENZAHL: “,f1$:f1 
=VAL(fI$):IF f1i$="" THEN 860 

330 INPUT" RECHENZEICHEN: ",r$:IF 


r$="=" OR r$="" THEN summe=f1:G0T0O 1040 





Sting Minl-Calculator 


(1936) 
[416] 
[86547] 


[5979] 


(5729) 


(5514) 


(450) 
[1629] 
[117] 
(1921) 
[13049] 


(13273) 


(4371) 


(877) 
[1139] 
(327) 
(827) 
(1478) 
[941] 
(998) 
[1425] 
[978] 
[593] 
[1127) 
[1039) 
(621) 
[536] 
(117) 
[127] 
(1190) 
[4567] 


[2114] 
970] 
(875) 
(621) 
(3958) 


[8529] 


(3998) 
[5001) 


[7086] 


(2212) 
[3668] 
[4138) 
(2307) 
[3910] 
[4895] 
[117] 

[417] 

[909] 

[4181] 


[3921) 































































940 INPUT“ RECHENZAHL: "‚t2$:f2 [2629] 
=VAL(f2$) 

950 IF r$="+" THEN summe=fi+f2 [2432] 
960 IF r$="-" THEN summe=f1-f2 [1045] 
970 IF r$="#" THEN summe=fixf2 [1429] 
980 IF r$="/" THEN summesf1/f2 [1261] 
990 IF r$="" THEN 1040 (703] 
1000 INPUT” RECHENZEICHEN: ",r$:IF [3188] 

r$="=" THEN 1040 

1010 INPUT” RECHENZAHL: ".f2$:f (2629) 
2=VAL(f2$) 

1020 fl=summe [564] 
1030 GOTO 950 [318] 


1040 dat$(seite,2,5)=STR$(summe):a=LEN(dat [2290] 
$(seite,z,s)) 

1050 IF a>9 THEN dat$(seite,z,s)=LEFT$ (dat [4404] 
$(seite,z,s3),9):GOTO 1070 

1060 IF a<9 THEN r=9-a:FOR b=1 TO r:dat$(s [4801] 
eite,z,s)=CHR$(32)+dat$(seite,z,s):NEXT 

1070 dat$(seite,z,s)=CHR$(24)+dat$(seite,z [2729] 
ıS)+CHR$ (24) 


1080 GOTO 860 (536) 
1090 ' [117] 
1100 ’UEBERTRAGEN [1213] 
1110 CLS:PRINT"Vebertragen: ";CHR$(24); [10208] 
"S";CHR$(24);"peichern "SCHR$(24);"L";cC 
HR$(24);"aden "SCHR$(24);"C";CHR$(24); 
"ataloge ";CHR$(24);"T";CHR$(24);"ape 
"SCHR$(24);"D";CHR$(24);"isc" 

1120 GOSUB 2270 [877] 
1130 IF t$="s" THEN 1190 [1186] 
1140 IF t$="1" THEN 1210 (923) 
1150 IF t$="c" THEN 1270 [792] 
1160 IF t$="t" THEN 1320 [1167] 
1170 IF t$="d" THEN 1330 [923] 
1180 GOTO 860 [536] 
1190 CLS: INPUT "Speichern: Dateiname [5445) 


:",datein$:IF datein$="" THEN 860 ELSE dat 
ein$=LEFT$(datein$,8) 

1200 OPENOUT datein$+".mc":FOR a=1 TO 2:FO [5520] 
R b=1 TO 8:FOR c=1 TO 18:PRINT#9,dat$(a,b, 
e):NEXT c,b,a:CLOSEOUT:GOTO 860 

1210 CLS [s1) 
1220 INPUT "Laden: Dateiname:" ,datein$:I [4505] 
F datein$="" THEN 860 ELSE datein$=LEFT$(d 
atein$,8) 

1230 IF seite=2 THEN WINDOW 2,5,1,25:FOR a (5738) 
=2 TO 19:LOCATE 1,a+1:PRINT a-1:NEXT a:LOC 

ATE 1,2:PRINT"1-" 

1240 OPENIN datein$+".mc":FOR a%=1 TO 2:F [13879] 
OR b%=1 TO 8:FOR c%=1 TO 18:INPUT#9,dat$(a 
%,b%,CK):NEXT cX,b%,a%:CLOSEIN:WINDOW 1,80 
‚1,25:LOCATE 10,24:PRINT CHR$(24);FRE(""): 

LOCATE 35,24:PRINT UPPER$(datein$)+".MC 

"+CHR$ (24) 

1250 WINDOW 6,79,3,20:FOR c%=1 TO 18:PRINT (9860) 
CHR$(24);dat$(1,1,c%K);dat$(1,2,c%);dat$(ı 
‚3,c%);dat$(1,4,c%);dat$(1,5,c%);dat$(1,6, 
c%);dat$(1,7,c%);dat$(1,8,c%) ;CHR$(24):NEX 

Tc% 

1260 seite=1:GOSUB 2130:WINDOW 6,79,3,20:G [2324] 
OTO 410 

1270 CLS:PRINT "Directory: " [2201] 
1280 IF seite=1 THEN CALL &AO00:WINDOW 8,7 (8517) 
0,5,20:LOCATE 1,20:PRINT CHR$(24):PRINT CH 
R$(19):WINDOW 10,70,5,20:PEN 0:LOCATE 172; 

PRINT" Directory ":PRINT:PRINT:CAT:PRINT C 
HR$(24):CALL &BB18:CALL &A00C:GOTO 860 

1290 IF seite=2 THEN WINDOW 1,5,1,25:FOR a [7887] 
=2 TO 19:LOCATE 2,a+1:PRINT a-1:NEXT a:LOC 

ATE 2,2:PRINT"I-":WINDOW 6,79,3,25 

1300 FOR a=1 TO 18:PRINT CHR$(24);dat$(ı1,ı1 [6547] 
‚a);dat$(1,2,a);dat$(1,3,a);dat$(1,4,a);da 
t$(1,5,a);dat$(1,6,a);dat$(1,7,a);dat$(1,8 
‚@a);CHR$(24):NEXT a 

1310 seite=1:G0T0 1280 [1569] 
1320 CLS:PRINT" Tape: ";CHR$(24);"Tape" [5532] 
;iCHR$(24);" ":}TAPE:FOR a=1 TO 400:NEXT a: 
GOTO 860 





























1330 CLS: PRINT” Disc: "SCHR$(24);"Disc" [6067] 
iCHR$(24);" ":|DISC:FOR a=1 TO 400:NEXT a: 

GOTO 860 

1340 ' [117] 
1350 "Kopieren (961) 
1360 CLS:h=1:PRINT"Kopieren: ";CHR$(24); [5309] 
"von";CHR$(24):G0OTO 380 






1370 WINDOW 2,78,22,23:PRINT"Kopieren: " [9640] 
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En = 


D_ Programm ü 












;CHR$(24); "nach" ;CHR$(24):WINDOW 6,79, 3,20 
ıhl=z:h2=s:hj=x: häzy: h=2:CALL &BB06: GoTo u 
00 


1380 dat$(seite,z,s)=dat$(seite,hl,h2) [2319] 


















1390 IF hi=z AND h2=s THEN GOTO 1410 (2467) 
1400 IF loeschen=O THEN dat$(seite,hl, h2)= [4011] 
& "+LOCATE h3,h4: PRINT " 
1410 h=0:6G0T0 860 [713] 
1420 ' [117] 
1430 'Loeschen (951) 
a CLS:PRINT"Loeschen: ":CHR$(24);" [7247] 
;CHR$ (24) ;"eile "SCHR$(24);"S";CHR$(2 
a“ palte SCHR$(24);"T"; CHR$(24); "otal 
1450 GOSUB 2270 (377) 
1460 IF t$="z" THEN 1500 [958] 
1470 IF t$="s" THEN 1540 [1180] 
1480 IF t$="t" THEN 1570 (1173) 
1490 GOTO 860 [536] 
1500 CLS:hh=s:INPUT"Loeschen: Zeile: ",s [4224] 
$:3=VAL(s$) 
1510 IF seite=2 THEN s=s-18 [868] 
1520 IF s>18 OR s<1 THEN s=hh:GOTO 860 (2237) 





1530 FOR b=1 TO 8:dat$(seite,b, S)=CHR$(24) 

+" "+CHR$(24):NEXT b:WINDOW’6,77,3 

‚20:FOR c=1 TO 18:FOR b=1 TO 8: PRINT EHRS ( 

24);dat$(seite,b,c);CHR$(24);:NEXT b,c:s=1 

ız=1:x=1:y=1:G0OTO 860 

1540 CLS:hh=s:INPUT"Loeschen: 

$:3=VAL(s$) 

1550 IF s<1 OR s>8 THEN s=hh:GOTO 860 

1560 FOR b=1 TO 18:dat$(seite,s,b)=CHR$(24 

)+" "+CHR$(24):NEXT:WINDOW 6,77,3, 

20:LOCATE 1,1:FOR b=1 TO 18:FOR a=1 TO 8:P 

RINT CHR$(24);dat$(seite,a,b);CHR$(24); :NE 

XT a,b::x=1:y=1:!9=1:z=1: 6oTo 860 

1570 WINDOW 6,77,3,20:CLS:FOR a=1 TO 8:FOR 

b=1 TO 18: dat$(seite; a,b)=CHR$(24)+" 
"+CHR$(24):NEXT b,a:G0OTO 860 


{11972] 









































Spalte: ",s [4153] 


(2433) 
[10489) 


(4947) 















1580 ' (117] 
1590 ' Druck (1059) 
1600 CLS:PRINT"Druck: "SCHR$(24);"S";CHR (3638) 
$(24);"tart" 
1610 GOSUB 2270 (877) 
1620 IF t$<>"s" THEN GOTO 860 (960) 
1630 PRINT#8:PRINT#8:FOR a=1 TO 2:FOR b=1 (6768) 
TO 18:FOR c=1 TO 8:PRINT#8,dat$(a,c,b);:NE 
XT c:PRINT#8:NEXT b,a 
1640 GOTO 860 [536] 
1650 ' (117) 
1660 "Funktion [501] 
1670 BEREERINTHEREKT N: ER STN [12992] 
HR$(24);" ";CHR$(24);" ;CHR$(24), "os 
STEHRS BE) "T" sCcHR$(24);" Er *"SCHR$(24);"W 
"SCHR$(24);" "urzel ":CHR$(24);"Q";CHR$(24 
);"uadrat" 
1680 GOSUB 2270 [877] 
1690 CLS (91) 
1700 IF t$="s" THEN INPUT"Funktion: Sin [5808] 
" ‚dat$(seite,z,s):dat$(seite,z,s)=STR$( 
SIN(VAL(dat$(seite,z,53)))):GOTO 1760 
1710 IF t$="c" THEN INPUT"Funktion: cos [7819] 
: ",dat$(seite,z,s):dat$(seite,2z,s)=STR$( 
COS(VAL(dat$(seite,z,3)))):GOTO 1760 
1720 IF t$="t" THEN INPUT"Funktion: Tan [8121] 
N " ‚dat$(seite,z,s):dat$(seite,z,s)=STR$ 
(TAN(VAL(dat$(seite,z,s)))):GOTO 1760 
1730 IF t$="q" THEN INPUT"Funktion: Qua [6333] 
drat: " ‚dat$(seite,z,s):dat$(seite,z,s)= 
STR$(VAL(dat$(seite,z,s))”"2):GOTO 1760 
1740 IF t$="w" THEN INPUT"Funktion: Wur [8212] 
zei: " dat$(seite,2z,s):dat$(seite,z,s)=S 
TR$(SAR(VAL(dat$(seite,z,s)))):GOTO 1760 
1750 GOTO 1790 [341] 
1760 a=0:a=LEN(dat$(seite,z,s)):IF a>9 THE [3777] 


N dat$(seite,z,s)=LEFT$(dat$(seite,z,s),9) 





1770 IF a<9 THEN r=9-a:FOR b=1 TO r:dat$(s 
eite,2z,s3)=CHR$(32)+dat$(seite,z,s):NEXT 
1780 dat$(seite,z,s)=CHR$(24)+dat$(seite,z 


(4801) 





(2729) 


‚S)+CHR$(24) 

1790 GOTO 860 [536) 
1800 ' [117] 
1810 'Ink [151] 
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1820 CLS:INPUT"Ink: Border: ";b$:CLS 
1830 b=VAL(b$):IF b>26 OR b<O THEN b=0 
1840 PRINT"Ink: ";CHR$(24);"Border ";CHR$ 
(24);b;:PRINT" ";CHR$(24);"Paper: ";CHR$(2 
4); :INPUT p$:CLS 

1850 p=VAL(p$):IF p>26 OR p<O THEN p=0 


1860 PRINT"Ink: ";CHR$(24);"Border ";CHR$ 


(24);b;" ".CHR$(24); "Paper "SCHR$(24);p; C 
HR$(24);"Pen: ";CHR$(24);:INPUT pe$ 
1870 pe=VAL(pe$):IF pe>26 OR pe<l THEN pe= 


26 
1880 BORDER b:INK 0,p:INK 1,pe 


1890 GOTO 860 
1900 ' 
1910 'Radieren 


1920 CLS:PRINT"Radieren: 
eite,z,3);" 
)SCHR$(24)+" 
1000:NEXT a:GOTO 880 
1930 ' 
1940 "Optionen 
1950 CLS:PRINT"Optionen: 
CHR$(24) ;"rossschrift 
R$(24);"leinschrift 
(24);"ehalten der Kopie" 
1960 PRINT;CHR$(24);" zZ” 
fuehren von Feldern 
$(24);"ormal" 


Feld: ";dat$(s 
wurde radiert":dat$(seite,z,s 
"+CHR$(24): FOR a=1 TO 


"SCHR$(24);"G"; 
"SCHR$(24);"K";CH 
":CHR$(24)"B";CHR$ 


;CHR$ (24); "usammen 
"SCHR$(24); "N" ;CHR 


1970 GOSUB 2270 

1980 IF t$="b" THEN loeschen=1:G0T0 2040 
1990 IF t$="g" THEN gross=1:klein=0:607T0 2 
040 

2000 IF t$="k" THEN klein=1:gross=0:60T0 2 
040 

2010 IF t$="z" THEN zusammenf=1:G0TO 2040 
2020 IF t$="n" THEN gross=0:klein=0:loesch 
en=0:zusammenf=0:CLS:PRINT"Optionen: te, 


HR$(24);" 
00:NEXT 
2030 GOTO 860 

2040 CLS:PRINT"Optionen: “SCHR$(24); "Ak 
tiviert";CHR$(24):FOR a=1 TO 1000:NEXT:GOT 
oO 860 

2050 ' 

2060 'Seite 

2070 IF seite=1 THEN WINDOW 6,79,3,20:L0CA 
TE x,y:PRINT ;CHR$(24);dat$(seite,z,3);CHR 
$(24):WINDOW 2,5,1,25:CALL &A0O00:FOR a=20 
TO 37:LOCATE 2,a-18:PRINT a-1:NEXT a:LOCAT 
E 1,2:PRINT"2-" 

2080 IF seite=1 THEN WINDOW 6,79,3,20:FOR 
b%=1 TO 18:PRINT CHR$(24);dat$(2,1,b%);dat 
$(2,2,b%);dat$(2,3,b%);dat$(2,4,b%);dat$(2 
‚5,b%);dat$(2,6,b%); dat$(2,7,b%);dat$(2,8, 
b%); CHR$(24): NEXT b% 

2090 IF seite=2 THEN LOCATE x,y:PRINT CHR$ 
(24);dat$(seite,z,s);CHR$(24):CALL &AOOC 


Geloescht";CHR$(24):FOR a=1 TO 10 


2100 IF seite=1 THEN seite=2 ELSE seite=1 
2110 GOTO 860 

2120 ' 

2130 WINDOW 2,78,22,23:LOCATE 1,22:PRINT"8 
efehl: Text, Wert, Funktion, Kopie, Loes 

chen, Vebertragen, Druck, Ink":LOCATE 1,23 
:PRINT" Radieren, Optionen, Seite 
ß Quit ":RETURN 

2140 

2150 ' 

2160 'Quit 

2170 MODE 2:LOCATE 30,10:PRINT"#**# END 
E ss ":END 

2180 ' 

2190 ' Steuerung (Joy + Key) 


2200 O=NOT(INKEY(72) AND 
NKEY(73) AND INKEY(2)) 
2210 L=NOT(INKEY(74) AND INKEY(8)):R=NOT(I 
NKEY(75) AND INKEY(1)) 

2220 E=NOT(INKEY(76) AND INKEY(9)) 


INKEY(O)):U=NOT(I 


2230 WHILE NOT INKEY$="":WEND 

2240 IF NOT(O OR U OR L OR R OR E) GOTO 22 
00 

2250 RETURN 

2260 ' 

2270 t$=INKEY$:IF t$="" THEN 2270 

2280 t$=LOWER$(t$):RETURN 


3000 RESUME 1210 
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[20813 
[2418) 
[6281] 


(2135) 
[7367] 


[1966] 


(1123) 
[536) 
117) 
[575] 
[8955] 


[117] 
[124] 
[11941] 


[6106] 


(877) 
[1374] 


(1459) 
[3188] 


(2098) 
(9685) 


[536] 
[6908] 


[117] 
(501) 
[10915 


[9660] 


[4364] 
[2008] 


[536] 
(117) 
[13639) 


[117] 
[117] 
[237) 
[3525] 


(117) 
[1287] 
[2851] 


[4356] 


[2441] 
[2527] 
[1947] 


(555) 
{117) 
{1005) 
[1371] 
[740] 


a u — FE 


BASIC-Programm identifiziert werden 
kann. Wird dagegen mit SAVE 
“Name“,A gespeichert, so schreibt der 
CPC das Programm als ASCII-Text 
auf Diskette, so wie es auch nach LIST 
auf dem Bildschirm erscheinen würde. 
Das erfordert etwas mehr Zeit als das 
einfache SAVE, da erst der Interpreter- 
code in den ’Klartext"” umgewandelt 
werden muß und noch die Steuerzei- 
chen hinzukommen. Auch der Lade- 


swo 


A ;und abspeicn.. 


HL ;Argumentadr. retı 
HL,STARTW;Iter.-Startwert 1,. 
3 DE,REALI ;nach REALI kopieren 
£D BC,5 ;5 Bytes 
LDIR ‚uvebertragen 
"POP HL ;Argumentadr. 
'LD 8,4 ;4 Iterationen 


holen 


"ITER PUSH BC; Zaehler retten 
"PUSH HL ;‚Argumentadr. retten 


'"LD DE,REAL2 
"LD BC,5 
'LDIR 
LD HL,REAL2 
D DE,REALI 
LL FDIV 
NE,REALI 
FADD 
"SAL2 


‚kopieren 


;Adr. 
sREAL2 / 2.8 





REAL2 nar! 


‚Argument nach REAL2 


;REAL2/REAL1l berechnen 


;‚;REAL2+REALI1 berech 


Die Assemblerecke 


Datei-Allerlei 


Hat man nun so allerlei in seinen CPC eingetippt, so möchte man es natür- 
lich gerne für die Nachwelt erhalten und jederzeit abrufbereit auf Datenträ- 
ger konservieren. Das Locomotive-BASIC stellt zu diesem Zweck einige 
leicht zu handhabende Befehle wie LOAD und SAVE zur Verfügung. Doch 
wie lassen sich solche Dateioperationen in Maschinensprache ausführen? 
Diese und die nächste Folge der Assemblerecke werden zeigen, welche Be- 
triebssystem-Aufrufe für das Laden und Speichern zuständig sind und wie 
man sie sinnvoll einsetzt. Und nebenbei werden dabei noch einige Unpäß- 


lichkeiten des CPC-BASICs beseitigt.. 


Bevor wir uns in die Tiefen des Be- 
triebssystems wagen, ist jedoch etwas 
Grundlagenwissen notwendig. Im 
Prinzip gibt es zwei verschiedene Da- 
teitypen, zwischen denen wichtige Un- 
terschiede bestehen. Eine Binärdatei 
enthält Daten, so wie sie auch im 
RAM-Speicher des CPC stehen, also 
direkt in maschinengerechter Form. 
Der Inhalt der Datei kann dabei alles 
Mögliche darstellen, also z.B. ein 
BASIC- oder Maschinenprogramm, 
ein Bild oder einfach eine Ansammlung 
binär codierter Zahlenwerte, 


Text- oder ASCII-Dateien sind dage- 
gen auf menschliche Lesegewohnhei- 
ten zugeschnitten. Alle Bytes in der 
Datei gelten als Textzeichen, die durch 
die dazugehörige ASCII-Nummer re- 
präsentiert werden. Dazu kommen ei- 
nige Steuerzeichen, die eine spezielle 
Bedeutung haben: Die Kombination 
CHR$(13) (Carriage Return, Wagen- 


rücklauf) und CHR$(10) (Linefeed, 
Zeilenvorschub) weist auf das Ende ei- 
ner Textzeile hin, und CHR$(26) 
(CTRL Z, End Of File) markiert das 
Ende der Datei. Manchmal wird auch 
noch das Zeichen CHR$(9) (CTRL 1, 
Tabulator) benutzt, das platzsparend 
für eine bestimmte Anzahl Leerzeichen 
steht. 


BASIC als Text oder binär 
verhext 


Speichert man ein BASIC-Programm 
mit SAVE “Name“ ab, so wird es ohne 
Umschweife aus dem CPC-RAM auf 
Diskette/Cassette übertragen, also ge- 
nau in der Form, in der der Interpreter 
das Programm verschlüsselt hat. Hier- 
bei handelt es sich also um eine Binär- 
datei, die jedoch im Dateikopf (dazu 
später mehr) eine bestimmte Markie- 
rung enthält, damit sie beim Laden als 


vorgang dauert wegen der Rückum- 
wandlung entsprechend länger. 


Der Vorteil des ASCII-Formats liegt 
jedoch darin, daß das Programm mit 
einer Textverarbeitung geladen und be- 
arbeitet werden kann. Nicht möglich 
ist es dagegen, irgendeinen beliebigen 
Text mit LOAD als BASIC-Programm 
zu laden, da der Interpreter seine heiß- 
geliebten Zeilennummern vermißt und 
sich mit "Direct Command Found’ be- 
schwert. Um eine normale Textdatei 
unter BASIC auf den Bildschirm zu ho- 
len, ist schon ein kleines Programm 
notwendig: 

10 INPUT “Dateiname: *,‚name$ 

20 OPENIN name$ 

30 WHILE NOT EOF 

40 LINE INPUT#9,zeile$:PRINT zeile$ 

50 WEND 

60 CLOSEIN 

Das Prinzip ist sehr einfach: Zunächst 
eröffnet OPENIN die Datei zum Le- 
sen. Über den Eingabekanal #9, der 
für Cassette/Diskette zuständig ist, 
werden die Textzeilen geholt und auf 
dem Bildschirm angezeigt, bis das Zei- 
chen CHR$(26) auftaucht und das ’End 
Of File’ (EOF) anzeigt. Der Befehl 
LINE INPUT wird verwendet, da er 
nur bei der Steuerzeichenkombination 
Carriage Return / Line Feed ein Zei- 
lenende erkennt, während das normale 
INPUT jedes Komma als Trennzeichen 
ansieht, was einen Text natürlich ziem- 
lich zerpflückt. Zum Abschluß meldet 
CLOSEIN dem Betriebssystem ord- 
nungsgemäß, daß der Lesevorgang 
beendet ist. 


Herr Ober, Zahlen bitte! 


Sollen von BASIC aus Zahlenwerte ab- 
gespeichert werden, so geschieht das 
ebenfalls in Form einer Textdatei. An- 
genommen, in einem Programm zur 
Erfassung und statistischen Auswer- 
tung von Meßwerten existiert ein Ar- 
ray der Größe DIM mwert(200), so 
schreiben die folgenden Zeilen die Da- 
ten auf Diskette: 

100 OPENOUT “MWERTE.DAT# 


110 FOR i=1 TO 200 
120 PRINT#9,mwert(i) 
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130 NEXT i 

140 CLOSEOUT 

Die Ausgabe auf Datenträger erfolgt 
auf die gleiche Weise wie die Bild- 
schirmausgabe mit einem PRINT-Be- 
fehl: Die Zahlen werden nicht im inter- 
nen Fließkomma-Binärformat, son- 
dern als dezimale ASCI-Ziffern abge- 
speichert. Auf jeden Wert folgt ein 
Wagenrücklauf und ein Zeilenvor- 
schub. Das Einlesen geschieht dann 
analog mit OPENIN, INPUT #9 und 
CLOSEIN. 

Zu beachten ist in diesem Zusammen- 
hang, daß ein vergessenes CLOSEIN 
zwar die Fehlermeldung 'File already 
open’ beim nächsten OPENIN erzeu- 
gen kann, aber ansonsten keine schlim- 
men Folgen hat. Ein fehlendes CLOSE- 
OUT führt jedoch meistens dazu, daß 
die Datei unvollständig bleibt. Das 
liegt daran, daß der CPC beim Lesen 
und Schreiben von Textdateien den 
Transfer zwischen Speicher und Da- 
tenträger grundsätzlich in 2 kByte gro- 
ßen Blöcken erledigt. Zu diesem 
Zweck richtet er im RAM entspre- 
chend große Pufferbereiche ein. Die 
Daten werden nach PRINT#9 erst 
dann wirklich 'weggeschrieben’, wenn 
der Puffer voll ist oder ein CLOSE- 
OUT erfolgt. Unterbleibt dieser Be- 
fehl, so geht mit großer Wahrschein- 
lichkeit der noch im Puffer befindliche 
Rest verloren! 


Universell, aber nicht sehr 
schnell 


Das Abspeichern von Zahlenwerten im 
universellen ASCII-Format hat den 
Vorteil, daß Dateien dieser Art von je- 
dem Rechner und jeder Programmier- 
sprache gelesen werden können. Wenn 
man die Schwierigkeiten bewältigt, die 
sich aus den unterschiedlichen Disket- 
tenformaten ergeben, so istesz.B. kein 
Problem, die Datei MWERTE.DAT 
auf einem MS-DOS-PC unter Turbo 
Pascal zu verarbeiten. Das ASCIH-Zah- 
lenformat hat jedoch auch Nachteile: 
— Die Umwandlung binär-dezimal ko- 
stet Zeit, und zwar sowohl beim Spei- 
chern als auch beim Laden der Werte. 
— Die Konvertierung vergrößert die 
Ungenauigkeiten durch Rundungsfeh- 
ler. 

— Die ASCII-Zahlen belegen meistens 
mehr Platz auf der Diskette als in binär 
codierter Form. 

Was hindert uns also daran, Zahlen als 
Binärdatei zu speichern? Wenn man 
weiß, daß alle Array-Elemente im 
Speicher ordentlich hintereinanderlie- 
gen und eine Fließkommazahl genau 
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5 Bytes belegt, bietet sich SAVE 
“MWERTE.DAT“ ‚b,@mwert(1),1000 
an, um die 1000 Bytes der 200 MeB- 
werte mit weniger Aufwand und dazu 
wesentlich schneller auf Diskette abzu- 
legen, wobei die Speicheradresse der 
ersten Zahl mit Hilfe des "Klammeraf- 
fen’ (®@) ermittelt wird. Beim Versuch, 
die Binärdatei wieder zu laden, gibt es 
jedoch ein böses Erwachen: LOAD 
“MWERTE.DAT*,@mwert(1) soll 


IN OPEN 
Eingabedatei 
eröffnen 


IN CLOSE 
Eingabedatei 
schließen 


IN CHAR 
Zeichen aus 
Datei lesen 


IN DIRECT 
Datei in den 
Speicher 


Speichern 


OUT OPEN 
Ausgabedatei 
eröffnen 


| OUT CLOSE 
Ausgabedatei 
schließen 


OUT CHAR 
Zeichen in 
Datei 
schreiben 


OUT DIRECT 
Datei aus dem 
Speicher 
schreiben 


Länge Dateiname 
Adr. Dateiname 
Adr. 2K-Puffer 


Zieladr. 
Speicher 


Länge Dateiname 
Adr., Dateiname 
Adr. 2K-Pu£f£fer 


Zeichen 


die Zahlen wieder an die durch 
@mwert(1) angegebene Adresse laden, 
erzeugt jedoch nur die Fehlermeldung 
’Memory Full’! Das ist die Standard- 
ausrede des Interpreters, wenn ihm bei 
der Speicherverwaltung irgend etwas 
nicht gefällt; hier ist er schlicht und 
einfach dagegen, daß man eine Binär- 
datei mitten in den BASIC-Arbeitsbe- 
reich lädt. Und schon ist der Program- 
mierer motiviert, auf die Assembler- 


Dateiart 
Pufferadr. Header 
Quelladr. 
Dateilänge 
verändert 


‚BC,DE,HL verändert 


Zeichen (falls 
kein Fehler) 
verändert 


Startadr. für 
Maschinenprogr. 
‚BC,DE,IX verändert 


HL = Pufferadr. Header 
AF,BC,DE,IX verändert 


AF,BC,DE,HL,IX veränd. 


AF,IX verändert 


Quelladresse HL = Startadr. für 
Anzahl Bytes 
Startadresse 
falls Programm 


Maschinenprogr. 
AF,BC,DE,IX verändert 


= Dateikennbyte 


Sonstiges 


TEST EOF 
Test auf 
Dateiende 


CATALOG Adr. 
Inhalts- 

verzeichnis 

ausgeben 


NOISY 0: 
Systemmel- 0: 
dungen für 

Cassette 

ein/aus 


Fehlerstatus bei Aussprung: 


Carry=1l: Alles OK 


2K-Puf£fer 


Meldungen ein 
Meldungen aus 


Ende nicht 
erreicht 

Ende erreicht 
durch EOF 
durch ESC-Abbr. 


Carry=1: 
Carry=0: 
Zero=0: 
Zero=1: 


AF,BC,DE,HL,IX veränd. 


AF verändert 


Carry=0,Zero=0: Fehler (EOF met, already open, File not found...) 
Carry=0,Zero=i: Benutzer-Abbruch durch ESC 





Betriebssystem-CALLs für Dateioperationen 


FT FT u RE} 


Ebene zu wechseln, um diesem über- 
triebenen Sicherheitsbedürfnis zu ent- 
gehen, 


Mehr Freiheit durch Assembler 


Wir brauchen also ein kleines Maschi- 
nenprogramm, das eine Binärdatei 
hemmungslos an eine beliebige Ziel- 
adresse in den Speicher befördert. Die 
tabellarische Übersicht zeigt, welche 
CALLs das Betriebssystem als Unter- 
stützung zu bieten hat. Zunächst ist zu 
beachten, daß in Assembler jedes La- 
den bzw. Speichern ein korrektes Öff- 
nen und Schließen der Datei erfordert, 
auch wenn es sich nicht um ein ASCI- 
File handelt. Zu diesem Zweck existie- 
ren entsprechende OPEN und CLOSE- 
Routinen, die übrigens auch von den 
BASIC-Befehlen LOAD und SAVE in- 
tern benutzt werden. 

Für unsere Zwecke kommt der Aufruf 
IN OPEN in Frage, der in den Z80-Re- 
gistern die Länge und Adresse des Da- 
teinamens erwartet. Auch die Start- 
adresse eines 2 kByte langen Dateipuf- 
fers ist hier im DE-Registerpaar er- 
wünscht, da an dieser Stelle ja noch 
offen bleibt, ob eine Text- oder Binär- 
datei gelesen wird. Da bei Binärdateien 
die Daten ohne Umschweife in den 
Speicher schwirren, wird der Puffer in 
unserem Fall überhaupt nicht benötigt; 
wir können hier also eine beliebige 
Adresse angeben oder auch gleich den 
Wert in DE belassen, der dort zufällig 
steht. 

Damit wird ein weiterer Vorteil der 
Assembler-Lösung gegenüber BASIC 
deutlich: Sie spart massiv Speicher- 
platz! Der Interpreter zwackt nämlich 
während eines Lade-oder Speichervor- 
gangs kategorisch 4 kByte Pufferbe- 
reich vom Arbeitsspeicher ab, indem 
er HIMEM entsprechend herabsetzt. 
Dieser Speicherhunger resultiert dar- 
aus, daß beim CPC gleichzeitig eine 





Eingabe- und eine Ausgabedatei geöff- 
net sein darf, so daß eben für alle Fälle 
gleich zwei Dateipuffer bereitgehalten 
werden. 


Hier muß man den Programmierern 
des Locomotive-BASICs den Vorwurf 
machen, daß sie durch diese undiffe- 
renzierte Vorgehensweise sehr ver- 
schwenderisch mit dem kostbaren 
RAM-Speicherplatz umgegangen sind, 
was bei umfangreichen Programmen 
oder Variablenfeldern ein unerwartetes 
"Memory full’ zur Folge haben kann. 
Das ist umso ärgerlicher, da die 4 kByte 
Pufferbereich meist nur zur Hälfte und 
bei Binärdateien überhaupt nicht ge- 
braucht werden. 


Ein Blick auf das Listing 


Der tabellarischen Übersicht kann man 
entnehmen, daß die Routine IN OPEN 
nach ihrer Beendigung einige Informa- 
tionen über die eröffnete Datei in den 
Z80-Registern zurückliefert. Was die- 
se Angaben bedeuten und wie sie sich 
auswerten lassen, wird in der nächsten 
Folge der Assembler-Ecke zur Sprache 
kommen. Wenden wir uns jetzt lieber 
dem Listing zu, das die praktische Rea- 
lisierung zeigt. Von BASIC aus wer- 
den der Dateiname und die Zieladresse 
als Parameter übergeben. Der erste 
Teil des Programms beschäftigt sich 
damit, über die Adresse des Stringde- 
skriptors (siehe Heft 6/89, S. 45) die 
Länge und Adresse des Namens zu er- 
mitteln und in die richtigen Register 
einzusortieren. 


Nach dem Öffnen der Datei wird der 
Ladevorgang sehr kurz und knapp mit 
der Routine IN DIRECT erledigt, die 
eine Binärdatei in einen Speicherbe- 
reich lädt, dessen Startadresse beim 
Einsprung im HL-Registerpaar stehen 
muß. Für den obligatorischen Ab- 
schluß ist schließlich der Aufruf IN- 


CLOSE zuständig. Beim Speichern ei- 
ner Binärdatei würde man entspre- 
chend mit OUT OPEN beginnen und 
dann OUT DIRECT aufrufen, wobei in 
HL und DE die Quelladresse und Län- 
ge des Speicherbereichs erwartet wer- 
den. Falls es sich um ein Maschinen- 
programm handelt, das Sie direkt mit 
RUN starten wollen, muß BC beim 
Einsprung die Startadresse enthalten 
und im Akku eine 2 stehen. 


Praktisch alle Dateioperationen in As- 
sembler folgen diesem Schema. Nur 
beim Lesen oder Schreiben von Text- 
dateien sind noch ein paar zusätzliche 
Feinheiten zu beachten, da der Vor- 
gang immer zeichenweise stattfindet, 
einen Puffer benötigt und eventuell 
eine spezielle Behandlung der Steuer- 
zeichen verlangt. Mehr zu diesem The- 
ma und weitere Anwendungsbeispiele 
präsentieren wir Ihnen in der nächsten 
Folge! 


Hinweise: 


Um weiteren Anfragen zu den Assem- 
blerprogrammen vorzubeugen, hier 
noch einmal eine kleine Erläuterung. 


Die in der Assemblerecke veröffent- 
lichten Programme können mit dem 
CPC-Assembler aus dem Heft 6/88 as- 
sembliert werden, Sie sind direkt und 
ohne Probleme verarbeitbar. Eine häu- 
fige Frage, ob die Assemblerprogram- 
me auch mit anderen Assemblerpro- 
grammen laufen, kann nicht immer mit 
“Ja“ beantwortet werden, da sich die 
Eingabeformen unterscheiden. Abhilfe 
schafft oft ein Vergleich mit dem 
Handbuch des Assemblers. 


Für den Maschinencode-Anfänger ist 
der CPC-Assembler auf jeden Fall zu 
empfehlen, da eine Programmentwick- 
lung sehr vereinfacht wird. 


(Matthias Uphoff/cd) 















100 ';****# Binaerdatei laden 

110 ';ssz2xx Aufruf mit H,(IX+3) ;nach HL 

120 ';CALL &A600,@name$, zieladresse 3 B,(HL) ‚Laenge String nach B 

130 : „INC HL ‚Adresse String 

140 'ORG &A600 LD E,(HL) ‚nach DE 

150 ' VINC HL 

160 'OPENIN EQU &BC77; IN OPEN ‚LD D,(HL) 

ı70 "LOAD EQU &BC83; IN DIRECT „Ex DE,HL ‚und dann nach HL 

I "CLOSIN EQU &BC7A; IN CLOSE = 

350 . 2 "CALL OPENIN ;Datei oeffnen 

00 'cP 2 i2 Parameter? "POP HL ;Zieladresse nach HL 

210 'RET NZ ;=> nein, zurueck "CALL C,LOAD ;Laden wenn kein Fehle 

220 'PUSH DE ‚Zieladr. merken "CALL CLOSIN ;Datei schliessen 

230 'LD L,(IX+2) ;Deskriptoradr. names RET =>’ fertig, Basic 
Ling Assernbierecke Listing Assemblerecke 
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Tips & Tricks 


S.100,- DM 
für 1 kByte 


Die Herausforderung 





Die neue Rubrik “100,— DM für 1 kByte“ hat wieder 
einmal voll eingeschlagen. Auch diesen Monat finden Sie 
hervorragende Programme zum schnellen Abtippen und 
Ausprobieren. Hier finden Sie kleine Spielprogramme 
und prima Utilities für den “Hausgebrauch“. Aber auch 
ungewöhnliche Programme, beziehungsweise “nicht der 
Norm entsprechende“ Anwendungen finden hier ein 
Plätzchen, zum Beispiel Lösungen zu verschiedenen 
Mathematikproblemen oder eine abtrakte Darstellung 
von Grafiken (mit einem sehr überraschenden Effekt). 
All dies können Sie hier finden. 


1. Programm: Dirstart 


Sie kennen sicher folgendes Problem: Feierabend, die Frau 
ist noch nicht zu Hause, also noch schnell mal an den Compu- 
ter und ein Spielchen wagen. Die passende Diskette ist 
schnell gefunden, aber war es das Spiel “xyz“ oder “yxz“ 
oder “zxy“ ... also wie immer : CAT und tipptipptipp... 


Für alle, die (wie ich) nicht die nötige Sorgfalt haben walten 
lassen, um alle Diskettenkataloge fein säuberlich abzuheften, 
oder die keine Lust haben, vor Spielbeginn noch drei Ordner 
Disketteninfo durchzublättern, ist das Programm “Dirstart“ 
gedacht. Es zeigt alle auf der Diskette befindlichen Program- 
me an und startet diese auf Tastendruck! Einmal auf eine Dis- 
kette übertragen, kann es immer wieder benutzt werden, weil 
es bei jedem Aufruf das Directory neu einliest. Bisher mußte 
bei jedem neu abgespeicherten Programm das Disketten- 
startprogramm geändert werden. Ab jetzt nicht mehr! 


Etwas Programmgeschichte: 

Da das Laden von Kassetten-Software bekanntlich erhebli- 
che Zeit beansprucht, wurden die kopierbaren Programme 
auf Diskette überspielt. Ich programmierte mir ein Startpro- 
gramm, dessen Gerüst bei jeder Diskette mitverwendet wer- 
den konnte. Es mußten nur die Programmtitel eingefügt wer- 
den. Doch auch das Einfügen erwies sich als nicht ganz feh- 
lerfrei und zeitaufwendig. Ich brauchte ein Programm, das 
sich flexibel jeder Diskette anpaßt, wobei auf Tastendruck 
gestartet werden sollte. Erste Versuche, über “TXT Read 
Char“ die Programmnamen festzuhalten, scheiterten endgül- 
tig bei der 24. abgespeicherten Version im Modus 0. Und 
eine neue CAT-Routine zu schreiben, die auf Tastendruck 
reagiert, überfordert einen Hobbyprogrammierer wie mich 
erheblich. Doch es ist (war) nicht al- 
ler Tage Abend: das Zauberwort 
heißt “BASIC“: Einfache Program- 
mierung, gute Übersicht (fast), unein- 
geschränkte Nutzung auf allen CPCs, 
Erweiterungsmöglichkeiten und, 
und, und; das alles sind Gründe, auch 
einmal auf Maschinensprache zu ver- 
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zichten, um pünktlich und ausgeschlafen zur Arbeit zu 
kommen! 


Jetzt endlich die Programmbeschreibung: 

Durch Patchen des Vectors “TXT Output“ bei Hex BB5A 
wird das Directory nicht auf dem Bildschirm ausgegeben, 
sondern in den Programmspeicher eingelesen, wo es an- 
schließend mittels PEEK-Befehlen weiterverarbeitet wird. 
Es werden immer fünf Programmnamen ausgegeben, bis das 
Directory-Ende erreicht ist. Ein kleines Menü zeigt die Ta- 
stenbelegung. Der MC-Code dient nur dem Erkennen von 
Steuerzeichen und dem Umleiten des Datenstroms in den Ar- 
beitsspeicher. Zeile 25 enthält den String, nach dem ausgege- 
ben wird. Durch Ändern dieses Strings in zum Beispiel 
“* lad“ und ein entsprechendes Umbenennen der Ladepro- 
gramme mittels ’:REN’ würden nur noch diese angezeigt. 
Der Call &BD37 "Jump Restore’ kopiert die Sprungleiste aus 
dem ROM wieder in das RAM, wobei der Patch bei &BB5A 
wieder aufgehoben wird. Nur leider werden die Kassetten- 
routinen mit ausgegeben, weshalb mit dem Befehl 'IDISC’ 
auf Diskettenbetrieb umgeschaltet werden muß. 


Tastenbelegung: 

<Space> zeigt weitere Einträge 

</-5> startet das hinter der Tastennummer aufgeführte 
Programm 

<Del> beginnt am Directory-Anfang 

<Esc> beendet Dir-Start 


Durch den erwähnten Eingriff in die Sprungleiste des BASIC 
wird für kurze Zeit der Bildschirm abgeschaltet. Fehlermel- 
dungen werden somit nicht ausgegeben, dürften aber auch 
nicht auftreten, da mit ’run“dirstart” von Diskette geladen 
wird und die Fehlermeldung: “Disc missing! Retry ....“ 
nicht ausgegeben werden kann. 


(Bernhard Ballweg/cd) 


2. Programm: Hyper-Hardcopy 


Diese Hardcopy-Routine erstellt ein Poster mit den Maßen 
94cm x 61 cm! Alle Farben des CPC (0-26) werden als ent- 
sprechende Grauwerte wiedergegeben, die durch Aneinan- 
dersetzen von ASCII-Zeichen realisiert werden. Bei diesem 
überdimensionalen Format ist eine höhere Auflösung gar 
nicht nötig, da die Zeichen bei normalem Betrachtungsab- 
stand zu Grauflächen verschmelzen. Nach jeder der insge- 
samt fünf Papierbahnen werden vier Leerzeilen gedruckt, so 
daß genug Platz zum Auseinanderschneiden bleibt. Nach er- 
folgreichem Ausdruck schneiden Sie am besten den linken 
Rand bis zum ersten Zeichen ab und kleben ihn an der rech- 
ten Seite der vorherigen Spalte an. Der Ausdruck dauert 
zwar, je nach Drucker und Motiv, bis zu zwei Stunden, das 
Ergebnis dieser Routine kann sich dann aber sehen lassen!! 
(Anm. d. Red.: Mitgeliefertes Poster hängt in der Redak- 
tion!) 


Hinweise: 


Sie sollten unbedingt Endlospapier verwenden und die Dip- 
Schalter so einstellen, daß die Perforation NICHT über- 
sprungen wird. Das ergibt eine große Arbeitserleichterung 
beim späteren Zusammenkleben. Nach dem Start des Pro- 
gramms werden die MC-Daten auf ihre Richtigkeit überprüft 
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und der Drucker initialisiert. Da die nötigen Steuercodes 
vom jeweiligen Drucker abhängen, müssen Sie diese viel- 
leicht verändern. Nähere Informationen finden Sie in den 
Zeilen 130 bis 150. Das zu druckende Bild sollte sich vor 
Einsprung in das Programm auf dem Bildschirm befinden. 


Das Erstellen des Programms und der Ausdruck erfolgten 
auf einem CPC6128 und einem Epson LX800. Das Pro- 
gramm läuft durch Anwendung der Vektoren auf allen drei 
CPCs und müßte ohne Abänderung auf Epson-kompatiblen 
Druckern (zum Beispiel: DMP 2000) laufen. 


(Fridemann Tonner/cd) 


3. Programm: Reaktionstest 


Dieses Programm testet die Reaktions- sowie die Merkfähig- 
keit einer Person. Gespielt wird mit den Tasten Fl bis F9 des 
Zahlenblocks. Für jede dieser Zahlen erscheint auf dem Bild- 
schirm eine Raute. Zu Beginn muß man die Geschwindigkeit 
auswählen, wobei 1=schnell und 9=langsam ist. So kann 
die Geschwindigkeit dem jeweiligen Können angepaßt wer- 
den. Hat man sich für eine Geschwindigkeit entschieden, be- 
ginnt das Spiel. In wilder Reihenfolge beginnen die neun 
Rauten abwechselnd zu blinken, bis das ganze abrupt aufhört 
und nur noch eine Raute verfärbt ist. Nun muß schnellstens 
die zu dieser Raute gehörende Taste gedrückt werden. Hat 
man das geschafft, beginnt das Ganze von vorne. Aber Vor- 
sicht, jede Taste darf während eines Spiels nur einmal ge- 
drückt werden. Man muß sich also merken, welche Taste 
man schon einmal gedrückt hatte. Das Spiel ist beendet, 
wenn jede Raute einmal verfärbt war. Vor Eingabe des Pro- 
gramms muß man “POKE &AC00,1“ eingeben, damit die 
nicht benötigten Leerstellen unterdrückt werden. Gibt man 
den POKE nicht ein, kann es passieren, daß das Programm 
länger als IkByte wird. 


(Wolfgang Noisternig/cd) 


4. Programm: Hypnotische Grafiken 


Das Programm erzeugt nach Eingabe zweier Zahlen ein ach- 
sensymmetrisches Bild, das es wirklich in sich hat. Es wer- 
den am Anfang vier Linien von oben nach unten, von rechts 
nach links und umgekehrt über den Bildschirm gezeichnet. 

Währenddessen ändert sich die Farbe der Linien ständig. Mit 
den Anfangswerten, sie bestimmen die Schrittweite in den X- 
und Y-Koordinaten, können im Prinzip unendlich viele Bil- 
der erstellt werden. Die verschiedenen Variationen ergeben 
sich durch die Eingabe der Werte und die Dauer des Bildauf- 
baus. Probieren Sie doch einmal bei X, den Wert 60 und bei 
Y den Wert 3. Sind Sie der Meinung, daß genügend gezeich- 
net wurde, so können Sie auf Tastendruck die “Hypnotische 
Grafik“ ihr Werk tun lassen. 


Hinweise: 


In der Zeile 190 können noch die Farben geändert werden, 
wenn der Bedarf bestehen sollte. Viel Spaß! 


(Patrik Simon/cd) 


5. Programm: 
Baum des Pythagoras 


Bei diesem Programm handelt es sich 
um eine Art mathematische Grafik- 
spielerei, die den Baum des Pythago- 
ras zeichnet. Das geht so: "Stamm? sei 2 
ein Quadrat der Länge 1, welches am ww 

unteren Bildschirmrand erscheint, hier mit 1=80 Pixel. Auf 
der Oberseite des Quadrats wird ein rechtwinkliges Dreieck 
mit den Kathetenlängen 4/5 1 und 3/5 | (denn nach Pythagoras 
eilt: (4/5)2 + (3/5)2 =1!) gezeichnet. Über jeder dieser Ka- 
theten wird nun wieder ein Quadrat gezeichnet, über dem 
wieder ein rechtwinkliges Dreieck gezeichnet wird und so 
weiter. Über jedem Quadrat (’Ast’) teilt sich so der Baum in 
zwei ungleiche, kleinere Quadrate (Zweige). Der rechte 
Zweig ist immer kleiner als der linke Zweig, so daß der ge- 
samte Baum linkslastig wird. Da sich der Baum nicht ewig 
verzweigen kann, wird zu Beginn nach einer Abbruchtiefe 
gefragt, die zwischen eins und sechzehn liegen muß. Es ent- 
steht so ein Baum, der aus 2TIEFE -1 Quadraten besteht. Bei 
einer Tiefe von 16 sind das schon 65535 Quadrate, wofür 
schon eine Stunde Rechenzeit veranschlagt werden sollte. 
Für Tiefe Zehn (1023 Quadrate) braucht der CPC jedenfalls 
ungefähr 110 Sekunden. Die Arbeitsweise des Programms 
wird recht gut ersichtlich, wenn man einmal eine Tiefe von 
fünf eingibt. Die schönsten Grafiken ergeben sich mit Tiefen 
um zwölf bis vierzehn. 





(Matthias Weber/cd) 


6. Programm: Delcode 


Angeregt durch das Programm “LISTER“ aus der PCI 2/89, 
Seite 43, habe ich ein Progrämmchen geschrieben, welches 
BASIC-Programme, die als ASCII-File vorliegen, auf ent- 
haltene Steuerzeichen untersucht und dies dann in CHR$(..) 
übersetzt. Da wir ja selbst recht bequem sind, machen wir 
von der Möglichkeit, Steuerzeichen direkt als solche in das 
Programm einzugeben, oft Gebrauch. Die katastrophalen 
Auswirkungen auf das ausgedruckte Listing sind bekannt. 
Man spart jedoch sechzehn Tastendrücke, das heißt, acht pro 
Steuerzeichen (SHIFT und CTRL mitgerechnet), wenn man 
statt <PRINT CHR$(10)“ Fehlermeldung“ CHR$(7)> nur 
eingeben <PRINT“CTRL JFehlermeldungCTRL G“ > 


Funktionsweise des Programms: 
Delcode liest das als ASCII-File auf Diskette vorhandene 
Programm zeilenweise ein, ersetzt vorhandene Steuerzei- 
chen durch den entsprechenden CHR$(..)-Ausdruck und 
speichert das so geänderte Programm mit der Extension 
<.LST> ab. Wenn die Steuerzeichen nicht innerhalb von 
Anführungsstrichen stehen, werden sie (zur Beschleunigung 
des Programms) nicht erkannt. Relevant kann dies allerdings 

nur in REM-Zeilen werden. Sind sie A 
in einer PRINT-Anweisung vorhan- 
den, ist die Umformung fehlerfrei. 
Stehen die Steuerzeichen dagegen in 
einer INPUT-Anweisung oder wird 
eine Variable damit belegt, kann es zu 
Fehlern kommen, die die Lauffähig- 
keit der Programme beeinträchtigen. 





P> 
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Für den Anwendungszweck von Delcode, nämlich die List- 
barkeit auf den Drucker zu ermöglichen, halten wir sie für 
unschädlich. 


Bedienungsanleitung: 

Diskette mit dem zu behandelnden Programm einlegen 
—nicht vergessen, das Programm mit SAVE“name 
.asc“,A abzuspeichern — Delcode starten, den Programm- 


namen eingeben, fertig. (Ingo Streek/cd) 


Die Bedingungen 
Hier die Bedingungen unseres Wettbewerbs: Wir suchen 
komplette Programme (bitte ohne Steuerzeichen!), die funk- 


für 464-664-6128 


1 ' DIRSTART Vi.3 Bernhard Ballweg 

10 BORDER O0:INK 0,0:INK 1,2:INK 2,26:INK 3 
9 

’ 

15 FOR a=&4000 TO &400F:READ w$:POKE a,VAL [2535] 
("&"+Ww$): NEXT 

20 MODE O:a=&BB5A:POKE a,&C3:POKE a+t1,0:PO [3350] 
KE a+2,&40 

25 b$="#*.#":|DIR,@b$:CALL &8037:!DISC:MODE [1356) 
1:PEN 3 

30 b$=SPACE$(43): PRINT TAB(4);"<SPACE> ze [14448) 
igt weitere Eintraege";b$; "<1-5>";SPC(7)"s 
tartet das Programm" ;b$; "<DEL>";SPC(15)"be 

ginnt vorn";b$;"<ESCY";SPC(14)"Ende DIRSTA 

RT" 

35 WINDOW#80,10,34,11,23:5=&5010 

40 FOR q=1 TO 70:CLS:FOR w=1 TO 5:FOR e=O 

To ıı 

45 a$=a$+CHR$(PEEK(S+te)):NEXT:a$(w)=a$:a$= 


[1687] 
[1593) 


[1504] 
[2763) 


[2465] 


50 IF INSTR(a$(w),"K free") THEN 65 ELSE L [3519] 
OCATE 1,2#w:PEN 2 
55 PRINT w;",";" 
=s+12:NEXT 

60 GOSUB 70:NEXT {1792] 
65 LOCATE 1,12:PEN 3:PRINT "Ende des Direc [3286] 
tory !":GOTO 60 

70 CALL &8B803:IF INKEY(47)=0 THEN RETURN 
75 IF INKEY(66)=0 THEN END ELSE IF INKEY(7 
9)=0 THEN 35 

80 b$=INKEY$:IF b$<"1" OR b$>"5" THEN 70 E 
LSE RUN a$(VAL(b$)) 

85 DATA FE,1E,F8,E5,2A,0E,40, 77,23,22,0E,4 
0,E1,C9,00,50 


"S:PEN 1:PRINT a$(w);:s [3408] 


(2139) 
(2812) 


(2915) 


(1356) 


Listing Dirstart 


10 ' HYPER-HARDCOPY 

20 ' (C) Friedemann Tonner (USISOFT) 

30 DATA 11,00,00,0D,21,6A,AO,3E,C9,ED,47,2 
1,90,01,01,00,00,05,E8,09,E£E8,C5,0880 

40 DATA E5,CD,FO0,8B,C0,35,8C,78,32,23,AO,D [3346] 
0,7E,00,CD,28,80,30,F8,E1,C1,01,0D33 

50 DATA 0C,3E,7F,8B9,20,0F,C0,5B,A0O,28,CB,4 [3941] 
5,28,04,E0,57,30,28,04,ED,47,18,0979 

60 DATA CB,CD,5B,A0,CD,58,A0O,CD,58,A0,CD,5 
8,A0O,3E,02,BA,C8,01,80,00,E8,09,0B22 

70 DATA EB,18,AC,3E,0A,C0,28,80,30,F9,3E,0 [3001] 
0,C0,28,80,30,F9,C9,30,38,47,51,09C7 

80 DATA 4F,44,45,67,25,75,39,68,46,3F,54,3 [3220] 
8,58,6A,66,29,3C,2F,3A,2C,7C,21,20,0673,00 

90 a=&A0O00:MEMORY &SFFF:RESTORE 30:z=20:g= [5415] 
O:WHILE a<&AOB6:READ x$:x=VAL("&"+x$) 

100 IF x>&FF THEN s=x:z=2+10:IF s<)g THEN 
PRINT"DATA-Fehler in";z:END ELSE g9=0:G0T0 
120 

110 g=g+x:POKE a,x:a=a+l 

120 WEND 

130 PRINT#8,CHR$(27)CHRSL5SI)CHR$(13); "Zeil 
enabstand 13/216 Zo1] 


(1496) 
[1258] 
(2772) 


(5110) 


[6699] 


[1422] 
{390) 
[1946] 
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tionsfähig möglichst auf allen drei CPCs laufen (was nicht 
heißen soll, daß wir bei besonders guten keine Ausnahme 
machen) und die nicht länger als 1 kByte sind (Anzeige auf 
dem Datenträger gilt!). Der Preis für solche Programme be- 
trägt 100,— DM. Senden Sie uns Ihr Programm (maximal 
zwei Programme!) auf Datenträger (Diskette/Kassette) mit 
Programmbeschreibung (möglichst in ASCIH-Form mit auf 
dem Datenträger) zu und zwar an den 


DMV-Verlag 
Postfach 250 
Stichwort: 100,— DM 
3440 Eschwege 


140 PRINT#8,CHR$S(27)CHR$S(83)CHR$(O); "Hochs [3124] 
tellung 

150 PRINT#8,CHR$(15); '"Schmalschrift 
160 ORIGIN 0,0:CALL &AO000 


[2589] 
[879] 


Listing Hyper-Hardcopy 


1 REM Reaktion 

10 MODE 0:INK 0,0:FOR i=1 TO 9:INK i,26:NE 
XT:INK 10,22:INK 11,13:INK 12,2,6 

20 BORDER 0:DEFINT a-z:KEY 138," " 

30 p=9:FOR b=9 TO 15 STEP 3:FOR a=13 T0 7 
STEP-3:PEN p 

40 LOCATE a,b:PRINT CHR$(214)CHR$(215):LOC [4356] 
ATE a,b+1:PRINT CHR$(213)CHR$(212) 

50 p=p-1:NEXT a,b 

60 PEN 10:LOCATE 4,1: PRINT"REAKTIONSTEST!" 
»"  "STRING$(16,45) 

70 LOCATE 5,25:PRINT CHR$(164)" TERRA-SOFT [3037] 


(541) 
[3798] 


[2189] 
[2560] 


[884] 
(3888) 


80 DIM a(9):PEN 11:LOCATE 5,20:PRINT"LEVEL [2689] 
[1-9]2"SPACE$(40) » 

90 9=VAL(INKEY$):IF g<l OR 9>9 THEN 90 
100 LOCATE 5,20:PRINT" LEVEL:";g9;" ":PEN 
12 

110 FOR i=0 TO INT(RND#25)+5:INK a,26 [2574] 
120 b=INT(RND#9)+1:IF a=b THEN 120 (1808) 
130 a=b:INK a,3:FOR j=1 TO 300:NEXT j,i:r= [1985] 

9*50+50:c=0 

140 WHILE r<>0 AND c=0:c=VAL(INKEY$):r=r-1 
:WEND:WHILE INKEY$<>"":WEND 

150 IF a(a)AND c=O THEN 110 

160 IF ala)OR(a<>c)THEN LOCATE 6,22: PRINT" 

Verloren!!”:e=300:f=600:9=20:G0T0 190 

170 a(a)=1:a(0O)=a(0O)+1:SOUND 1,142,10,7:IF [2193] 
a(0)<9 THEN 110 

180 LOCATE 8,22: PRINT"SIEG!!":e=400: f=100: 

9=-20 

190 FOR j=e TO f STEP g:SOUND 1,3,10,7:NEX 

o 

200 ERASE a:CALL &58806:G60T0 80 


[1953] 
(2878) 


(5143) 


{867) 
(4113) 


[2906] 
(2153) 


[1797] 
Listing Reaktionstost 


5 ' Farbenspiel 

10 INPUT"Stepx:",xs: INPUT"Stepy:",ys 
20 BORDER 0 

30 MODE 0 

40 FOR i=0 TO 15:INK 1,1:NEXT 

50 x=640:y=400 

60 i=1 

70 WHILE INKEY$="" 

80 x=x-(xs):y=y-INT(ys) 

90 MOVE x,400:DRAW 640, y,1+i 

100 MOVE 640-x,0:DRAW 0,400-y,2+i 
110 MOVE 640-x,400:DRAW O,y,3+i 
120 MOVE x,0:DRAW 640,400-y,4+1 
130 IF x<=0 THEN x=640:j=i+l 

140 IF y<=0 THEN y=400:i=i+l1 

150 IF i>11 THEN i=O 


[1167] 
[1947] 
[1008] 
[507] 

[1749] 
[978) 

[423) 

[1095] 
[1997] 
[1186) 
(1534) 
[1182] 
(2287) 
[1581] 
(1103) 
[716] 
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Wissen Sie eigentlich, was Sie versäumt haben? 


Nicht nur, daß Ihnen eine geballte Fülle an 
Informationen fehlt, Sie haben gleichzeitig 
jeden Monat das Superprogramm für Ihren 
CPC, PCW oder PC verpaßt. Entgangen 
sind Ihnen höchstwahrscheinlich seit Ja- 
nuar 1988: 


POPCORN - das Super-Strategiespiel... 
(CPC) 

LOCOCON - schnelle Konvertierung von 
LocoScript- Texten... (PCW-Joyce) 

(Heft 1/88) 


DESKMAN - Komfortable Benutzerober- 
fläche für Diskettenoperationen... (CPC) 
SCREENY - Grafik-Module ohne GSX für 
Mallard- BASIC... (PCW-Joyce) 

(Heft 2/88) 


SCHREIBMASCHINENTRAINER - zum 
Erlernen der Zehnfinger-Schreibweise... 
(CPC) 

TINY - Ein Texteditor der Sonderklasse... 
(POW-Joyce) 

(Heft 3/88) 


ROTORMANIA - Actionspiel mit Hub- 
schrauber... (CPC) 
DIN-A4-QUERHARDCOPY - nutzt das ge- 
samte Druckerpapier... (PCW-Joyce) 

(Heft 4/88) 


PICTURE-PRINTER - Super-Hardcopy- 
Programm... (CPC) 

3DZEICH - vektororientiertes Zeichenpro- 
gramm (PCW-JOYCE) 

(Heft 5/88) 


CPC-ASSEMBLER V 2.0 - Der Z80- 
Assembler zum Abtippen... (CPC) 
XX-FORMAT - 188 kByte freie Kapazität 
auf Diskette... (PCW-Joyce) 

FONTEDIT - Neue Zeichensätze unter 
BASIC2... (PC) 

(Heft 6/88) 


MAGIC SCREEN - Manipulation von Gra- 
fiken... (CPC) 
MONITORVERBESSERUNG - Klares Bild 
auf CGA-Monitoren... (PC) 

(Heft 7/88) 


BACKGAMMON - DIE Super-Simulation 
des Brettspiels... (CPC) 

MILLION - BASIC2-Spiel ums liebe Geld... 
(PC) 

(Heft 8/88) 


RSX-SYMBOL-DESIGNER - Zeichenedi- 
tor der Spitzenklasse... (CPC) 
3D-GRAFIK - Fortsetzung des 3D- 
Zeichenprogrammes... (PCW-Joyce) 
DIAGRAMM - Balken-, Torten- und Kreis- 
diagramme in BASIC2... (PC) 

(Heft 9/88) 


LOOK - Dastolle Mahjongg-Spiel zum Ab- 
tippen... (CPC) 

SCHOOLDAT - Literatur-Verwaltung für 
PC 1512/1640... (PC) 

(Heft 10/88) 


ARTWORX - Riesig: Desktop Publishing 
auf dem CPC... (CPC) 

REISEKOSTEN - Abrechnung der Reise- 
kosten in BASIC2... (PC) 

(Heft 11/88) 


Bitte benutzen Sie die Bestellkarte. 


DMV-Verlag - Postfach 250 - 3440 Eschwege 


Nicht zu vergessen die Highlights dieses 
Jahres: 


MAZE-GLIDER (Spiel, 1/89), 
ANIMATOR (Anwendung, 2/89), 
TEXT-EDIT DE LUXE (Anw., 3/89), 
SOUNDMANAGER (Anw., 4/89), 
AUSTRALIEN (Spiel, 5/89), 
VIDEODATEI (Anw., 6/89), 

für den CPC. 


FILE RESCUE (Anw., 1/89), 
BACKGAMMON (Spiel, 2/89), 
MINI-LEXIKON (Anw., 4/89), 
KASSETTENLABEL (Anw.,5/89), 
für POW-Joyce 


FARBE (Anw., 1/89), 
KONTOFÜHRUNG (Anw., 2/89), 
VOKABELTRAINER (Anw., 3/89), 
BORSENSIMULATION (Spiel, 5/89), 
REGENT (Spiel, 6/89), 

für PC 1512/1640. 


Dabei war das nur ein kurzer Ausschnitt aus 
der Menge an Programmen, die seit dem 
Januar 1988 in der PC AMSTRAD erschie- 
nen sind. Und das alles haben Sie verpaßt. 


Eine Chance... 

„haben Sie noch, wenn Sie die Bestellkar- 
ten im Heft ausfüllen und das jeweilige Heft 
nachordern (außer 12/88, dieses ist ausver- 
kauft). 


Also, nehmen Sie die letzte Chance wahr, 
ehe die Gelegenheit verpaßt ist. 


BAY 


nverlag 


Tips & Tricks 


160 WEND 

170 FOR i=1 TO 15:INK i1,1:NEXT 

180 FOR i=1 TO 15 

190 CALL &BD19:INK i,8:CALL &BD19:IF i=1 T 
HEN INK 15,1 ELSE INK i-1,1 

200 NEXT 

210 GOTO 180 


(390) 
[966] 
(310] 
[4392) 


[350] 
[401) 


Listing Hypnotische Grafiken 


10 '* Pythagorasbaum * 

20 DEG:DEFINT a-z:DIM st(255) 

30 MODE 2:BORDER 0:INK 0,0:INK 1,26 

40 INPUT"Tiefe ";tm:IF tm<l OR tm>16 THEN 

30 

50 LOCATE 40,1:PRINT 2”tm-1;" 

60 x1=320:y1=0:x2=400:y2=0 

70 GOSUB 100: PRINT"Fertig !" 

80 END 

90 '* Unterprogramm * (814) 
100 i=x2-xl:j=y2-y1l (706) 
110 MOVE x1,y1,1:DRAWR 1,j:DRAWR-j,1:DRAWR [1687] 

-1,-j:DRAWR j,-1 

120 g9=9+36:1=SQR(i"2+j*2)*0.8 

130 xi=x1-j:yl=yl+ti 

140 x2=x1+1#C0S(g):y2=yl+1*SIN(g) 

150 st(sp)=t:st(sp+1)=9-90:st(sp+2)=x2:st( 

sp+t3)=y2:st(sp+4)=x1+1:st(sp+t5)=y1+j 

160 sp=sp+t6:t=t+1l:IF t<tm THEN GOSUB 100'* 
Linker Arm * 

170 y2=st(sp-1):x2=st(sp-2):yl=st(sp-3):x1 

=st(sp-4):9=st(sp-5):t=st(sp-6) 

180 sp=sp-6:t=t+l:IF t<tm THEN GOSUB 100'* 
Rechter Arm * 

190 RETURN 


[1325] 
[2732) 
[2221] 
[1877] 


[1755] 
[2062] 
[1655] 
(110) 


Quadrate." 


(2330) 
(802) 

(2191) 
(4817) 
{1834} 
[4011] 
(2941) 


[555] 
Listing Baum des Pythagoras 








20 'DELCODE $ by Ingo Streek [1937] 
40 ' (117) 
50 MODE 2:INPUT"Programmname ";na$(O):n=IN [6221] 
STR(na$(0),"."):IF n=0 THEN na$(0)=na$(0)+ 
"„"ın=LEN(na$(0))+1 

60 na$(1)=LEFT$(na$(0),n)+"Ist" [1167] 
70 OPENIN na$(0):OPENOUT na$(1) (898) 
80 WHILE NOT EOF:LINE INPUT#9,20$:GOSUB 13 (3591) 
° 

90 WRITE#9, z1$:WEND:CLOSEIN:CLOSEOUT:END [3580] 
100 ' {117) 
110 'Test auf Steuerzeichen {1324] 
120 ' {117) 


130 p=INSTR(zO$,CHR$(34)):IF p=0 THEN z1$= [3304] 
20$:GOTO 180 

140 zi$=LEFT$(Z0$,p):z0O$=RIGHT$(zO$,LEN(zO [2491] 
$)-p) 

150 a$=LEFT$(z0$,1):z0$=RIGHT$(z20$,LEN(z0$ [2357] 


)-1) 

160 IF a$>CHR$(31)AND a$<CHR$(127)THEN zi$ [3547] 
=zi$+a$ELSE GOSUB 220 

170 IF LEN(zO$)>0 THEN 150 

180 RETURN 

190 ' 

200 'Steuerzeichen ersetzen durch CHR$(.) 
210 ' 

220 IF RIGHT$(z1$,1)<>CHR$(34)THEN z1$=z1$ 
+CHR$(34):GOSUB 270:G0TO 250 

230 zi$=LEFT$(zZI$,LEN(zI$)-I):IF RIGHT$(z1 
$,1)<>","AND RIGHT$(z1$,1)<C>")"THEN zi$=z1 
ET HÜRE 

240 GOSUB 270 (927) 
250 IF ASC(20$)=34 THEN 20$=RIGHT$(zO$,LEN [5287] 
(z0o$)-1)ELSE zi1$=z1$+CHR$(34) 

260 RETURN [555] 
270 z1i$=z1$+"CHREL"+RIGHT$(STRS(ASC(Aa$)),L [5643] 
EN(STR$LASC(a$)))-ı1)+")":RETURN 


(1696) 
[555] 
[117] 
[3469] 
[117] 
[4784] 


[5444] 


Listing Deicode 





Farbige Zeiten 


Bunte Texte in 
Regenbogenfarben 


Rainbowscript ist ein Programm zum Verschönern von 
Texten, wie zum Beispiel einer Anleitung oder eines 
Vorspanns. Dabei wird aus einer normalen Schrift eine 
"Regenbogenschrift’ gemacht, die durch Farbwechsel 
auch animiert werden kann. 


Das Programm arbeitet nach einer einfachen Methode und ist 
daher auch relativ kurz: Der gesamte Bildschirm wird (pixel-) 
zeilenweise nach gesetzten Punkten durchsucht. Alle gesetz- 
ten Punkte innerhalb einer Zeile werden mit derselben Farbe 
versehen. Anschließend wird die nächste Zeile durchsucht 
und alle gesetzten Punkte mit der nächsten Farbe versehen. 

In MODE 0 werden dabei immer wieder die Farben 8-1 
durchlaufen, in MODE 1 die Farben 3-1. Das Programm ist 
sowohl für MODE 0 als auch für MODE 1 ausgelegt und 
paßt die Anzahl der Farben automatisch an. In MODE 1 dau- 
ert die Umfärbung allerdings etwas länger, da die Auflösung 
und damit auch die Anzahl der zu überprüfenden Punkte hö- 
her ist. Tja, werden Sie sagen, das ist ja alles schön und gut, 
aber wie sieht es aus, wenn auch noch Grafik auf dem Bild- 
schirm ist? Und genau das ist der springende Punkt. Die Gra- 
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fik würde natürlich auch streifenartig eingefärbt (sieht übri- 
gens manchmal ganz hübsch aus). Hierfür gibt es einige Lö- 
sungsmöglichkeiten. Entweder Sie bringen erst den Text auf 
den Bildschirm, rufen dann die Assemblerroutine auf und 
zeichnen anschließend die Grafik auf den Bildschirm, oder 
Sie lassen die Grafik ganz weg. Eine dritte Möglichkeit 
wäre, das Maschinenprogramm so umzuschreiben, daß nur 
ein Teil des Bildschirms neu eingefärbt wird. Doch darauf 
jetzt näher einzugehen, würde den Rahmen des Beitrags 
sprengen. Da das Programm nach einer einfachen, aber 
schwierig durchzuführenden Methode arbeitet, ist die Um- 
färbung nicht gerade als rasant zu bezeichnen (dafür ist das 
Programm kurz). Diese Zeit läßt sich jedoch mit interessan- 
ten Einblend-Effekten überbrücken. Solche und auch andere 
Anwendungsbeispiele werden im Demonstrationsprogramm 
vorgeführt, das allerdings nur einige der vielfältigen Mög- 
lichkeiten von RAINBOWSCRIPT aufzeigen kann. 


Zum Abtippen: 


Zunächst müssen Sie das Programm RAINBOWSCRIPT ab- 
tippen und speichern. Anschließend starten Sie es, und wenn 
Sie alles richtig abgetippt haben, dann müßte das Programm 
RAINBOW.MC erzeugt beziehungsweise abgespeichert 
werden. Danach sollten Sie noch das Demonstrationspro- 
gramm abtippen und speichern. Sie werden erstaunt sein, 
was für Effekte ein so kurzes Programm in Verbindung mit 
RAINBOWSCRIPT zustande bringt. (Das Programm stoppt 
an zwei Stellen - zum Fortfahren drücken Sie bitte jeweils die 


Tips & Tricks 


ENTER-Taste.) Wenn Sie RAINBOWSCRIPT in eigenen 
Programmen verwenden wollen, gehen Sie bitte wie folgt 
vor: Zunächst müssen Sie den Speicher mit 

MEMORY &9FFF 

schützen. Anschließend laden Sie das Programm mit 
LOAD“RAINBOW.MC“ ,&A007. 

Das Programm kann jetzt jederzeit mit CALL &A007 aufge- 
rufen werden, wobei die Farbwahl entscheidend zur Lesbar- a: = IiEEr, 


keit beiträgt. Die Speicherstellen &A000-&A007 werden zur 5 zum Ges 3 
Verwaltung von Daten benötigt. Es ist übrigens nicht ratsam, 
das Programm aus MODE 2 aufzurufen, denn eine Regenbo- 
genschrift aus einer Farbe (?!) sieht etwas ... am besten Sie 
schauen es selbst an. 


(Jens Budinger/cd) 





Texte können nun in einer Farbanimation ausgegeben werden 





470 PRINT:PRINT"RAINBOWSCRIPT erstaunliche [2960] 














T = E Effekte" 

für R6g 664 6128 480 PRINT:PRINT"erzielen. Dabei unterschei [3270] 
det das" 

10 | ee EEE EEE EEE tı1252) 490 PRINT:PRINT"Assemblerprogramm ab &A007 [2712] 
20 ' * [175] selbst-" 
30 ' * Beispielprogramm zu * [1286] 500 PRINT:PRINT"staendig zwischen MODE 1 u [3051] 
20 ' x x [175] nd MODE 0 !" 
5s0o'x* RAINBOWSCRIPT x [259] s20 LOCATE 1,20:PRINT STRING$(40,CHR$(143) [3461] 
60 ' * * 175 ; 
70 ' KEN EEE Br 520 CALL &A007 (634) 
80 ' tıır] 530 c(1)=6:c(2)=15:c0(3)=24 [1728] 
90 MEMORY &9FFF:LOAD”rainbow.mc",&A007 [1609] 540 FOR m=1 TO 3:mg=m:FOR s=3 TO ı STEP -ı [2448] 
100 MODE 0:CALL &BC02:INK 0,0: INK .9,0:BORD (3764) 550 INK s,c({mg):mg=mg-1 [1461] 
ER 0:DIM c(16):f=8 560 IF mg=0 THEN mg=3 (688) 
110 LOCATE 1,2:PEN 9:PRINT "! RAINBOWSCRI [1842] 570 NEXT s:FOR sx=1 TO 200:NEXT sx:NEXT m [2481] 
A 580 GOTO 540 (425) 
120 PRINT:PRINT:PRINT:PRINT:PRINT"verwande [45864] 590 u...2 Unterprogramm une [2329] 
It Schrift" 600 anz=0 [320] 
130 PRINT:PRINT"zunaechst 'nur' in“ [2679] 610 FOR m=1 TO f:mg=m [875] 
140 PRINT:PRINT"Mehrfarbschrift,doch"; [2827] 620 FOR s=8 TO 1 STEP -ı (855) 
150 PRINT:PRINT"mit etwas Geschick" [2131] 630 INK s,c(mg) [509] 
160 PRINT:PRINT"bringt man ganz" (3196) 640 mg=mg-1:IF mg=0 THEN mg=f [1880] 
170 PRINT:PRINT"ordentlich Bewegung" [2205] 650 NEXT s [365] 
180 PRINT:PRINT"ins Bild...” [1338] 660 FOR sx=1 TO 20:NEXT sx [1788] 
190 ' “...% Einfaerben aus [660] 670 NEXT m (371) 
200 FOR s=8 TO 1 STEP -1:READ c:INK s,c:c( [2938] 680 anz=anz+l:IF anz=15 THEN RETURN ELSE 6 [2789] 
s)=c:NEXT s 10 
210 CALL &A007 [634] 690 ' u... DATAS sıxa= [571) 
220 ' ...rx DEMO ı xıxı= [879] 700 DATA 3,4,6,7,8,15,16,13 [1171) 
230 IF NOT INKEY(18) THEN GOSUB 600 ELSE 2 [1852] 710 DATA 9,18,19,21,22,20,23,10 (1450) 
30 720 DATA 8,7,7,6,6,7,7,8 [452] 
240 FOR s=1 TO 1000:NEXT s (1402) Bi 
250 ' xrrr* DEMO 2 xxx [867] 
260 FOR s=1 TO 8:INK s,0:FOR sx=1 TO 100;:N [2740] PATEneee 1 3.3.2 3 3 3 2 3 2 2 2 2 5 2 2 22 2 2 2 2 12 22 22; [1223] 
EXT Sx:NEXT s 20 ' 5 [175] 
270 FOR s=8 TO 1 STEP -1:READ c:INK s,c:c( [5680] 30 '’* RAINBOWSCRIPT * [259] 
s)=c:FOR sx=1 TO 100:NEXT sx:NEXT s 40,7% “ [175] 
280 FOR s=1 TO 1000:NEXT s [1402] BON * erzeugt RAINBOW.MC * [2440] 
290 GOSUB 600 [925] 80,7,% * [175] 
300 ' s..x* DEMO 3 uıxı [686] 70 ' Kuh ce [1223] 
310 RESTORE 700:FOR s=1 TO 15:READ c{s):NE [1660] 80° {117) 
XT s 90 MEMORY &9FFF [134] 
320 m=1:anz=0 [1014] 100 FOR s%=&A007 TO &A095 [1448] 
330 FOR s=1 TO 8:INK s,c(m):FOR sx=1 TO 40 [3181) 110 READ b$ [315] 
NEXT sx:NEXT s 120 POKE s%,VAL("&"+b$) [331] 
340 m=m+l:IF m=16 THEN m=1:anz=anzt+l [2175] 130 NEXT [350] 
350 IF anz=2 THEN 370 ELSE 330 [7793] 140 SAVE"rainbow.mc",5,&A007,&8F [2442] 
360 ' au... DEMO 4 zs=z= [1030] 150 END [110] 
370 f=15:G0SUB 600 (503) 160 DATA c3,68,30,21,c8,00,22,05,a0,3e,09 [1498] 
380 ' rrrk DEMO 5 “ars (998) 170 DATA 32,01,80,22,05,2a0,2b,cb,7c,c2,3f [1623] 
390 f=8:RESTORE 720 [599] 180 DATA a0,22,05,20,21,97f,00,22,03,a0,3a [1078] 
400 FOR s=1 TO 8:READ c:INK s,c:c(s)=c:FOR [4064] 190 DATA 01,a0,3d,ca,3a,a0,32,01,a0,cd,2c [2069] 

sx=1 TO 100:NEXT sx:NEXT s 200 DATA bc,32,00,30,c3,40,a0,3e,08,c3,2e [1850] 
410 GOSUB 600 (925) 210 DATA a0,c9,ed,5b,03,a0,23,05,20,cd,1d [2326] 
420 IF NOT INKEY(18) THEN 440 ELSE 420 [1696] 220 DATA bc,7e,fe,00,ca,5b,a0,al,ca,5b,a0 [1403] 
430 ' s..* DEMO IN MODE 1 ssz=2= [1272] 230 DATA 3a,00,a0,ae,al,ae,77,2a,03,a0,2b [1909] 
440 MODE 1:INK 1,19:INK 2,20:INK 3,2:PEN ı [2630] 240 DATA cb,7c,c2,15,a0,22,03,a0,c3,40,a0 [1327] 
450 LOCATE 3,2:PRINT"RAINBOWSCRIPT by Jens [378%] 250 DATA cd,11,bc,fe,00,c2,84,a0,3e,08,32 [1158] 

BSudinger" 260 DATA 3b,a0,3c,32,11,a0,21,9f,00,22,22 [1797] 
460 PRINT:PRINT:PRINT:PRINT:PRINT"Auch in [5512] 270 DATA a0,c3,0a,a0,3e,03,32,3b,a0,3c,32 [988] 
MODE 1 lassen sich mit" 280 DATA 11,a0,21,3f,01,22,22,a0,c3,0a,a0 [1436] 
Listing Farbige Zeiten Listing Farbige Zeiten 
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Tips & Tricks 


Farbensuche 
Der INK-Editor 


Mit diesem Programm ist es Ihnen möglich, alle Farben 
eines Bildes auf sehr einfache und komfortable Weise zu 
ändern, indem man aus einer Palette die gewünschte 
Farbe auswählt. Zu bunte Bilder können damit leicht 
geändert werden. Gleichzeitig werden alle 27 Farben in 
Mode 0 auf dem Bildschirm angezeigt. 


Das BASIC-Programm, das sich hinter dem DATA-Lader 
befindet, ist eigentlich nur eine Demo und braucht nicht un- 
bedingt mit abgetippt zu werden. Mit diesem ist es möglich, 
abgespeicherte Bilder zu laden, die normalen Farben einzu- 
geben und mit dem MCODE-Programm zu ändern. Weiter 
wird ein Ladeprogramm erzeugt, welches dieses Bild dann 
nachladen kann und die gewählten Farben vorher einstellt. 


für 464-664-6128 


1 MODE 2 

2 MEMORY A3FFF:adr=&9000 

3 READ a$:FOR a=ı TO 30 STEP 2:b$=MID$(a$, 
a,2):b=VAL("&"+b$):POKE adr,b:adr=adr+L:NE 
xT 

4 IF adr<&978F THEN 3 ELSE POKE 8&9228,47:P 
OKE &9762,&1D 

5 REM Anpassung 664/6128 

6 IF PEEK(6)=128 THEN 137 

7 POKE &9022,&BF:POKE &9038,&BF:POKE &9023 
‚&B8:POKE &9039,&88 

8 DATA 010303CD0388C212E90CDESBC2IFEBI 

9 DATA CDDDBC212E90CD198076CDIIBDCDE3 

10 DATA BC3E053292B1CDIBI1212EI0CDESBC 

11 DATA C90000000000813690F33A92814705 

12 DATA FEO4CA43IOFBCIDICBEICBBIEDAYIDYI 

13 DATA 218A9601007FT7E23ED49ED790C79FE 


(513) 
[1081) 
[3673] 


[3193] 


[1288] 
[1723] 
[3274] 


(2065) 
[1724] 
(3212) 
[1995] 
(2098) 
[2025] 
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Der INK-EDITOR braucht nur 29 Zeilen und kann daher 
auch in einfachen Malprogrammen und Ähnlichem einge- 
setzt werden. 


Ändern der Farben 


Mit den Cursor-Tasten und Shift wählt man die INK-Num- 
mer aus. Wenn der Cursor auf das R bewegt wird, kann man 
die Randfarbe (Border) ändern. Mit den Cursortasten wählt 
man die Farbe aus. Mit der COPY-Taste ordnet man die Far- 
be fest der INK-Nummer zu. Ein rotes Kästchen zeigt an, 
welche Farbe zugeordnet ist. Wollen Sie den Editor verlas- 
sen, so brauchen Sie nur die SPACE-Taste zu betätigen. Nun 
werden Sie nach dem Programmnamen gefragt, unter dem 
das Programm ein Bild abspeichern soll. Ist das geschehen, 
wird ein BASIC-Lader erstellt, das alle eingestellten Farb- 
werte, die vorher ausgesucht wurden, mit abspeichert. 


(Wolfgang Halder/cd) 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


1020F406F50010FD219A9601037FT7E 
23ED49ED790C79FEL1020F406640010 
FD21DF9601107F7E2BEDZS9ED790079 
FEFF2OF&4DICBBELICBBIEDSSIDSFBCYES 
D5I3ACEIECDAISODIEICYIAOCIHTAT7T2I 
A7968728032310FD7ESF3AODYT2ICF 
96478728032310FD73CYAFZACCIG6ED 
5BCAISCDEAISCDDBSIOEDS5BC2I6E2ACKH 
9622CC96ED5ICAI9ECYIAFZACKIGEDSB 
C296CDEAIA3AODIT2Z1ICF9I647872803 
2310FD5E21A7961600061B7EBB2804 
142310F87A320C9732CE96FE002818 
FEOD3021218B80122C49621ECFFI118 
00471910F022C296C9213C0122C296 
21880122C496C90600217301C31591 
CD5EIT7112BEO2Z1EOIECDCBISL1CBCO 
2IF6ISCODCBISL14BF0O210AI7CDICIE 
2101E0O3EOI3FSESCD2CBCAFO6087123 
7128CD268C10F7E1232323F13CFE1O0 
20OE521AICO3EOFF5SESCD2CBCAFOGOS 
71237125CD26BC10F7E1232323F13D 
FEO220ESAF320097218B801116001ED 


[2547] 
[2452] 
[1880] 
[769] 

[2095] 
[856] 

[2054] 
(3117) 
[1740] 
[1262] 
(1659) 
[2088) 
(1485) 
[2452] 
[1888) 
[1734] 
[1525) 
{1852) 
[2463) 
[1990] 
[17%0) 
[1531] 
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Softwareautoren für die Amstrad Computer gesucht. 


Haben Sie nicht auch schon einmal daran gedacht, ein gutes Programm, das Sie selbst geschrieben haben, zu veröffentlichen ? 

Warum sollten nicht auch andere Leser in den Genuß Ihrer Mini-Dateiverwaltung, Grafikerweiterung, Tips, Tricks, Tools, Utilities, Simulationen, Games usw. kommen? 
Wirklich gute Software, die den Anforderungen unserer Leser genügt, wird von uns entsprechend honoriert. 

Sie sollten jedoch bei der Einsendung Ihres Programms ein paar Punkte beachten. 
Wenn Sie Nachstehendes befolgen, wird Ihre Post zügig und ohne große Rückfragen und Verzögerungen bearbeitet: 


Senden Sie uns Ihr Programm mit 

(a) allen benötigten Files auf der mit dem Programmnamen bezeichneten Diskette. 
(b) den kompletten Ausdruckeni/listings aller Files der Diskette. 

(c) einer Beschreibung Ihres Programms und 

(d) einer genauen Bedienungsanleitung. 


Die Bedienungsanleitung und die Beschreibung sollten als Textdatei mit auf der Programm-Diskette enthalten sein. Wichtig für uns zu wissen wäre noch, mit welcher 
Konfiguration Sie arbeiten, welchen Drucker Sie benutzen, ob Sie ein zweites Laufwerk angeschlossen haben usw... 
Wenn Sie der Meinung sind, ein solches Programm geschrieben zu haben, dann nichts wie einschicken an den 


DMV Verlag - Red. PC International - Abtlg. CPC/Joyce/PC - Fuldaer Str. 6 - 3440 Eschwege 
Geben Sie bitte in der Adresse die für Ihren Amstrad Computer (CPC, Joyce, PC) zuständige Abteilung mit an, damit Ihr Programm direkt in die richtigen Hände gelangt. 
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37 DATA 
38 DATA 
39 DATA 
40 DATA 
41 DATA 
42 DATA 
43 DATA 
44 DATA 
45 DATA 
46 DATA 
47 DATA 
48 DATA 
49 DATA 
50 DATA 
51 DATA 
52 DATA 
53 DATA 
54 DATA 
55 DATA 
56 DATA 
57 DATA 
58 DATA 
59 DATA 
60 DATA 
61 DATA 
62 DATA 
63 DATA 
64 DATA 
65 DATA 
66 DATA 
67 DATA 
68 DATA 
69 DATA 
70 DATA 
71 DATA 
72 DATA 
73 DATA 
74 DATA 
75 DATA 
76 DATA 
77 DATA 
78 DATA 
79 DATA 
80 DATA 
81 DATA 
82 DATA 
83 DATA 
84 DATA 
85 DATA 
86 DATA 
87 DATA 
88 DATA 
89 DATA 
90 DATA 
91 DATA 
92 DATA 
93 DATA 
94 DATA 
95 DATA 
96 DATA 
97 DATA 
98 DATA 
99 DATA 
100 DATA 
101 DATA 
102 DATA 
103 DATA 
104 DATA 
105 DATA 
106 DATA 
107 DATA 
108 DATA 
109 DATA 
110 DATA 
111 DATA 
112 DATA 
113 DATA 
il4 DATA 
115 DATA 
116 DATA 
117 DATA 
118 DATA 
119 DATA 
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53C069622C896CDBE903E022ACCHSED 
SBCAISECDEAISIEOL2ACAISEDSBC2IE 
CDEAI42ACBIYISEDSBCEIETDFEBBZEOL 
F5SCC6D95F1C44295CDAOY0CDIIBDCDH 
O6BB3EOSCDIEBB2822AF2ACCISEDSB 
CAISCDEAYS2ACAIGEDSBC2I6EDSICA 
9622CC963A0OCI732CE9IECIADSIAFCD 
1E8820213E01CD1EBBC2F1923E02CD 
1E8B820493E08C01E8B820793E42CD1E 
BBCAADIICICEISCBEIC2KLL1I32ACHIE 
TDFESBCAADIL3AOCHTIEF383320C97 
AFZAC496EDSBC29ECDEAYI421880122 
C4963AC296FE3CC2ADIIAF320C97C3 
ADIICBE9C271932ACAIETDFET3CAAD 
91I3AOCITIEODBII2ZOCIHTAFZACHISED 
58BC296CDEA9421730122C4963AC296 
FEICC2ZADILAF320C97CZ3ADIICBESCZ 
SOI4AFZACAIGEDSBC2ISEDSCDEABAEL 
3A0CI730320C9 77DFEO4CAE39201E8 
FFO922C296 TDFE24C2ADIL3ACAYEFE 
7328083E00320C9 7C3ADY13E1A320C 
97CIADII11ICOLEDSI3C296AF320C97 
CI3ADIICBEICZA2IIAFZACHISEDSECZ2 
9605CDEAYISELTDFEICCA24933A0C97 
3C320C970118000922C296 7DFE3CC2 
ADIL1AF320C97C3AD9121040022C296 
3AC4I6FE7328083E01320C97C3AD91 
3E0E320CI7CIADILZACBHIEBTCAADYL 
FEBBCAADYIAFZACBIGEDSBCEIECDA2 
9521880122C89621600122C696C095 
90AF320D9 7CDBEIOCZADY13ACBI6B7 
CAADI1FET72CAADIIAFZACBIGEDSSCE 
96C0609521720122C89621280222C6 
96CDI5903E0F320D097CODBEYOCZADYI 
3ACBI6BTCAIIIAFE722829ED5BCE958 
2ACBIEDSAFCDEDISELTDFE382840CD 
95903A00973C3200970118000922C6 
96CDBEYIOCZADILEDSBCEI62ACBIEDS 
AFCD4295E17DFE282832C095903A0D 
973C3200970128000922C696CDBE90 
C3AD91217201116001E053C69622C8 
96CDI590IE0AI20DITCODBEIOC3ADIL 
CD95903£103200973E01C098952100 
FF22C896CDBE90CZADIL1CDYSIOAFZ32 
0097C0989511600121880122C896ED 
SIC6IECDBEIOCIADILZACHIGEBTCAAF 
9AFET2282AEDSBCEIE2ACBISEDSAFCD 
6D95E17DFE6OCA1AY4C095903A0097 
3032009 701E8FF0922C696CDBEJ0C3 
ADYLED5SBCEIEZACBIEDSAFCDA2ISEI 
TDFESOCACF94CD95903A009730320D0 
9T701D8FFO922C696CDBEJIOC3ADIICDH 
95903E0F320097AFCD989511280221 
7201ED53C69622C896CDBEI0C3AD91 
C9C095903E09320097113802218801 
ED53C69622C896CDBE90C3ADYICDDE 
BBCDEABB111400210000CDF9BB21FE 
FF110000CDF9B821000011ECFFCDFS 
BB21EEFF110000CDF9881114002100 
O0OCDFYBB2IFEFFL10000CDFY9BBLIEC 
FF210000CDF98BB210200111400CDF9 
BB211400110000CDF9BBCSCDDEBBCO 
EABBI11000021ECFFCOFI9BB112A0021 
0000CDF988110000211400CDF93B11 
DEFFZ10000CDFY9BBCSCDDEBBCDEABB 
11000021ECFFCDF9BB111800210000 
CDF9BB110000211400CDFIY9BBLI1ESFF 
210000CDF9Y9BBCICDDEBB2188011152 
O2CDEABBI1000021D8FFCDF9BB1128 
00210000CDF9BB110000212800CD0F9 
BBL1DSFF210000CDF9BRCH13237EFE 
2028F9B7C8E5050630010E976F2600 
292929090608 7EE6CO12137EE63007 
OT121BEBCD26BCEB2310ECDIEL11313 
23C3CB950608 7EE6COL1L2137EE63007 
0712137EE60C07070707121B1BEBCD 
26BCEB2310E2D1E113131323C3C895 
O6087EE6COL12EBCD26BCEB2310F4D1 
E11323C3CB95CD0689 7EB7CBESDSO1 
00386F2600292929090608C506027E 
E6C012137EE630070712137EE60C07 
07070712137EE60307070707070712 
181B1BEBCD26BCE8100723C110D001 
E11313131323C33F9654484C48434A 


(2313) 
[2481) 
[1714) 
[1583] 
[2002] 
[1650] 
[357) 

(1629) 
[1668] 
[1279) 
[1397] 
[593] 

(796) 

[1922] 
[2526] 
(1965) 
[1888] 
[1212] 
[1565] 
[1767] 
[1428] 
(2027) 
[1908] 
[2479] 
[2165] 
(1554) 
[1080) 
[2690] 
(1734) 
[1075) 
(956) 

{1972) 
(1177) 
[1997) 
[2882] 
(1896) 
[1904] 
(703) 

[1394] 
(2069) 
[1793] 
(2192) 
[2092] 
[1562] 
(1790) 
(1137) 
[964) 

[1690) 
[1911) 
(2232) 
[1193) 
[239&] 
[2290) 
[1386) 
(2334) 
[1739)} 
[1789] 
[1481] 
{1709} 
(1847) 
[1374] 
(1162) 
(1161) 
[1743] 
[2302] 
(1039) 
(2004) 
(2794) 
(1039) 
[2032) 
[1298) 
[1483) 
[1951] 
[2169] 
[1639] 
[2064] 
[2146] 
[1776] 
[219%] 
[1701] 
[1899] 
[1482) 
[2258] 
[1564] 


















































120 DATA 4E4C5C40464F405847455£56525A42 [2209] 
121 DATA 59445557505F5B535448434A4E4CSC [1516] 
122 DATA 40464F4058474553585F5057554459 [1554) 
123 DATA 425A52565£00000000000000000000 (1255) 
124 DATA 0000005450484E47434644535E555F [1499] 
125 DATA 58405C4A5420203020312032203320 (1822) 
126 DATA 342035203620372038203900202031 (1503) 
127 DATA 302031312031322031332031342031 [1705] 
128 DATA 35005200000040A0OAOAOAOA0400040 [1833] 
129 DATA C040404040E000C020204080806000 [1505] 
130 DATA C02020C02020C000A0AOA060202020 [2277)} 
131 DATA 00608080402020C000608080C0A0AO [152%] 
132 DATA 4000E0A020404040400040A0OAO40AO (1085) 
133 DATA AO400040A0A0602020C0002100C006 [1375] 
134 DATA 1C3600545D13C5E5014F00EDBOEICI [1095] 
135 DATA CD268C10EDC9000000000000000000 (2068) 
136 DATA 000000000000000000000000000000 [1922] 






137 CLEAR:DIM i(17):CALL &8C06,8&40:MODE 1: [3628] 
REM Bildschirmbank ab &4000 aktivieren 

138 PRINT" INK EDITOR v4.0 von Wolfgang H [3239] 
alder" 













139 PRINT:INPUT"Name des Bildes ",b$ [2075] 
140 LOAD b$,&C000:REM Bild laden [1138] 
141 PRINT:INPUT"Modus ",m:PRINT [1484] 






142 IF m=1 THEN t=3 ELSE IF m=2 THEN t=1 E [3799] 

LSE IF m=0 THEN t=15 

143 FOR x=0 TO t:PRINT"INK Nr:";x;:INPUT " [4597] 
Farbe Nr:",f:GOSUB 186:POKE &96CF+x,a:IN 

KRx,r 
















144 NEXT:wiev=t [316] 
145 IF m>2 THEN 141 [308] 
146 IF m<O THEN 141 [851] 
147 IF m=0 THEN RESTORE 152 [655] 
148 IF m=1 THEN RESTORE 154 (1634) 
149 IF m=2 THEN RESTORE 156 [1746] 







150 FOR t=&908C TO &908C+3:READ a:POKE t,a [5311] 
:NEXT:REM Daten fuer ab &908c fuer 














151 REM mode 0 (787) 
152 DATA &cb,881,&cb,889 [1355] 
153 REM mode ı1 [ 786) 
154 DATA &cb,889,Acb,&c1 [857] 
155 REM mode 2 (793] 
156 DATA &cb,8&81,&cb,&c9 [1289) 







157 MODE O:CALL &8C06,8&C0:REM Bildschirmba [4021] 
nk wieder &c000 und MODE O0 einschalten 
158 CALL &9006:REM Aufruf des INK-EDITORS [1828] 














159 CALL &BC06,&40:REM Verarbeitung (2405) 
160 MODE 2 (513) 
161 PRINT"Abspeichern des Vorspanns fuer 8 [3577] 
II _ 5 DE 

162 PRINT [361] 
163 a$(0O)="10 mode "+STR$(m) (1740) 






164 a$(ı1)="20 for t=0 to "+STR$(wief)+":re [6360] 
ad a:ink t,a:next:read a:border a" 











165 1=0:FOR t=&96CF TO &96CF+16:p=PEEK(t): [2719] 
GOSUB 180: i(1)=e:1=1+1:NEXT 

166 a$="":FOR 1=0 TO 16:a$=a$+"&"+HEXSt il) [#718] 
))+",":NEXT:a$=LEFT$(a$,LEN(a$)-ı) 

167 a$(2)="30 data "+a$ (835) 






168 a$(3)="40 LOAD"+CHR$L3S)+DE+CHRE(34)+" [4629] 
‚&C000:cal] &bbO&ß'auf Taste warten" 

169 FOR t=0 TO 3:PRINT UPPER$(a$(t)):NEXT [2209] 
170 PRINT:PRINT"Alle Angaben richtig (j/n [3219] 
y“ 











171 a$=INnKEY$:IF a$="" THEN 171 [1365] 
172 IF LOWER$(a$)="n" THEN 157 [1553) 
173 IF LOWER$(a$)<>"j" THEN 171 [803] 
174 INPUT"Name des Vorpsannprogramms :",n$ [2775] 








175 OPENOUT n$:FOR t=0 TO 3:PRINT#9,UPPER$S [4540] 
(a$(t)):NEXT:CLOSEOUT 

176 GOTO 137 [388] 
177 REM [272] 
178 REM Konvertierer - konvertiert die Pal [5529] 
ettenfarbnummer in die INK Nummer 

179 REM [272] 
180 e=0:DATA 84,68,85,92,88,93,76,69,77,86 [4824] 
‚,70,87,94,64,95,78,71,79,82,66,83,90,89,91 
‚74,67,75,255 


















181 RESTORE 180 [775] 
182 READ a:IF a=255 THEN STOP [1560] 
183 IF a=p THEN RETURN [1087] 
184 e=e+1:GOTO 182 [1225] 
185 REM (272) 








186 RESTORE 180:FOR y=0 TO f:READ a:NEXT:R (2185) 
ETURN 
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DIN A4 für ARTWORX 


Ergänzung zu ARTWORX aus 
Heft 11/88 


Programm ArtWorx ist sicherlich das beste Programm 
aus Zeitschriften überhaupt seit dem legendären Con- 
text. Doch leider hat es zwei entscheidende Schwächen. 
Möchte man zum Beispiel Plakate, Mitteilungen oder 
Anschläge am Schwarzen Brett erstellen, so ergibt sich 
ein Problem. Denn das DIN-AS5-Format ist für solche 
Zwecke oft ungenügend; ein doppelt so großes Blatt 
würde besser zu Geltung kommen. Genau hier greift das 
Programm ein. Durch einen Patch wird die Druckeraus- 
gabe auf DIN-A4-Format umgestellt. 


Programmbeschreibung: 


Diese Erweiterung besteht aus einem BASIC- und einem 
MC-Teil (File-Namen: DIN-A4.BAS und DIN-A4.BIN), 
wobei der BASIC-Teil lediglich eine Erweiterung zum Orgi- 
nal-Artworx-Lader ist. Beide Teile müssen also durch den 
Befehl MERGE zusammengefügt werden. Das Ergebnis ist 
unter dem Namen ARTWORX.BAS abzuspeichern. Dieser 
Teil lädt, wenn eine großformatige Ausgabe gewünscht ist, 
DIN-A4.BIN zusätzlich nach. Beim Start des ergänzten Files 
ARTWORX.BAS wird zuerst nach dem Format gefragt. 
Wird DIN A5 gewählt, so wird genauso wie beim Original 
verfahren. Ist aber ein DIN-A4-Ausdruck erwünscht, so 
kann optional eingegeben werden, welcher Stelle in cm, ge- 
messen am kleinformatigen Ausdruck, das Bild auf Großfor- 
mat erweitert werden soll. Es ist also möglich, nur einen Teil 
in DIN A4 auszudrucken. Dies ist sinnvoll, wenn eine schon 
im Kleinformat recht groß wirkende Überschrift nicht noch 
größer werden soll. 


für 6128 kei 


1 REM Patch muss in ARTWORX.BAS eingefuegt [4219] 
werden! 
















125 '# Patch by Heiko Gloede * [688) 

200 MEMORY &A6F7:SYMBOL AFTER 123 [1469] 
210 !}TAPE:OPENOUT "d":}DISC:MEMORY &15FF (2415) 
211 MODE 1:INK 0,13:BORDER 13:INK 1,0 [1530) 
212 PRINT STRING$(13,154);" Artworx Vı.ı " [3335] 
;STRING$(13,154); 

213 PRINT STRING$(3,154);" Firmware-Patch [5194] 
zur Druckerausgabe ";STRING$(2,154); 

214 LOCATE 3,6:PRINT"Ausgabe in :" (2813] 
215 LOCATE 3,8:PRINT"I' : DIN A4 - Format” [2981] 
216 LOCATE 3,9:PRINT"2 : DIN AS - Format” [3402] 
217 a$=INKEY$:IF a$="" THEN 217 (1375) 
218 IF a$<>"ı1" AND a$<>"2" THEN 217 [1453] 
219 IF a$="2" THEN 230 (712) 

220 LOAD"din-a4.,bin",&1600 [1104] 
221 LOCATE 3,11:INPUT"DIN A4 ab [cm] oder [4090] 
ENTER : ",a 

222 IF a>ı15 THEN 221 (632) 


223 IF a<>O THEN a=INT((a-2.2)*5.67+1):POK [2863] 
E &1601,160-a 






224 POKE &168D,a+l [758] 
510 ' {117) 
525 POKE &8132,49:' Version 1.1 (1456) 


526 IF a$="1" THEN POKE &80F6,0:POKE &80F7 [2567] 
‚&16:' Patch einbinden 
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ARTWORX der Knaller aus Heft 11/88. Mit einem Patch wird die 
Druckausgabe auf DIN A4 oder DIN AS geändert 


Für eine Ausgabe komplett in Großformat muß einfach nur 
ENTER gedrückt werden. 


Die Files für die ’DIN-A4-Ausgabe’: 

DIN-A4 .BAS : Erweiterung; einzufügen in den Original- 
ArtWorx-Lader DIN-A4.LAD: erzeugt DIN-A4.BIN 

Die gepatchte Version benötigt: 

ARTWORX.BAS: File DIN-A4.BAS und Orginal-Art- 
worx-Lader zusammengefügt. Neuer Lader DIN-A4.BIN: 
Erweiterung; wird nur geladen, wenn Großformat erwünscht 
ARTWORX.BIN: Original-Artworx Teil ART- 
WORX.GRF: Original-ArtWorx Teil ARTWORX.PRG: 
Original-ArtWorx Teil 


Hinweis: 
Dieser Patch müßte mit jedem EPSON-kompatiblen Drucker 
DORF ANIERFEN: (Heiko Gloede/cd) 


10 REM Listing din-a4.1lad 

20 REM erstellt nach dem Start 
30 REM die Datei din-as.bin 

40 MEMORY &15FF 

50 FOR adr=&1600 TO &168F STEP 8 
60 FOR i=adr TO adr+ 7 

70 READ b$ 

80 byte=VAL("&”+b$) 

90 POKE i,byte 

100 NEXT i 

110 NEXT adr 

120 SAVE"DIN-A4.BIN”",8,5632,142 
130 END 

140 DATA 3E,A0,32,68,03,21,41,16 
150 DATA 22,0F,03,22,E5,03,22,EB 
160 DATA 03,22,F1,03,22,F7,03,22 
170 DATA F0,03,22,03,04,22,0E,0%4 
180 DATA 3E,CD,32,48,03,32,2D0,04 
190 DATA 21,37,16,22,49,03,21,76 
200 DATA 16,22,2E,04,C3,40,00,32 
210 DATA 9D,04,3A,80,16,32,8C,16 
220 DATA C9,C5,E5,21,70,16,4F,3A 
230 DATA 8C,16,47,79,C8,11,CB,11 
240 DATA CB,11,05,28,0A,05,20,12 
250 DATA 21,73,16,C8B,11,CB,11,06 
260 DATA 03,AF,CB,01,30,01,86,23 
270 DATA 10,F8,CD,40,04,E1,C1,C9 
280 DATA 18,06,01,10,0C,03,3A,8C 
290 DATA 16,30,20,09,3E,02,32,8C 
300 DATA 16,01,00,00,C9,01,90,01 
310 DATA 32,8C,16,C9,00,00,00,00 


(1706) 
[1987] 
(1313) 
(338) 
[1738] 
{1011) 
(315) 
[465] 
[294] 
{375) 
[547] 
[1796] 
{110) 
[1434] 
[851] 
[1144] 
[960] 
[1935] 
[1571] 
[1293] 
[340) 
[1473] 
[2049] 
[1184] 
[1561] 
[952] 
[1336] 
[1157) 
{912) 
[1185] 
[1376) 


Listing DIN A4 


Tips & Tricks 


Bildschirmtools 


Mit Highres den Video-Chip 
besser nutzen 


Highres ist eine RSX-Erweiterung, welche die volle Bild- 
schirmauflösung des CPC-Video-Chips nutzt. Die Auflö- 
sung beträgt in Y-Richtung echte 400 Bildpunkte, 


Um diese Auflösung zu nutzen, muß man den Video-Con- 
troller in den vom Amiga bekannten Interlace-Modus schal- 
ten. Die effektive Bildwiederhol-Frequenz halbiert sich in 
diesem Modus, das Bild beginnt auf dem Standartmonitor zu 
flimmern. Mit einem besseren Monitor könnte man das 
Flimmern unterdrücken. Da der Video-Chip bei dieser Auf- 
lösung 32K-Byte durchgehenden Bildschirmspeicher benö- 
tigt, verringert sich der BASIC-Programmspeicher erheb- 
lich. Der Bildschirmspeicher beginnt in der hohen Auflösung 
bei &40, er endet bei &7FFF. Der BASIC-Programmspei- 
cher beginnt bei &8130, und er endet bei &9FT7F. Dort be- 
ginnen die SYMBOL-Anweisungen. Die RSX-Erweiterung 
wird in die Adresse &A000 geladen und muß mit CALL 
&A000 initalisiert werden. 


Befehlsübersicht 

IHIGH.SHOW:  Schaltet die Anzeige in den Highres- 
Modus. 

ILOW.SHOW: Schaltet die Anzeige in die alte Auflö- 
sung. 

IHIGH.OUT: Schaltet die Grafik-Befehle auf den 


Highres-Modus. Umgeschaltet wer- 

den: PLOT, PLOTR, DRAW, DRAWR, 
TEST, TESTR, PRINT. Zusätzlich wird 
PEN auf die Grafikfarbe umgeschaltet. 
Der PRINT-Befehl schreibt ebenfalls in 


für 6128 = 


100 


110 '* HIGH6128.L0D - DATA-Lader von 'CPc' 
* 















Kick EEE ee [1668] 


[1400] 
120 'HaRKREEE  EKEEE EEK € 
.. 

130 ' 

140 DATA AO00,21,50,A0,01,54,A0O,CD,01,8C,2 
1,0C,80,11,41,A0O,01,BDCc 

150 DATA AO10,03,00,E0,80,21,E2,8BD,11,44,A 
0,01,03,00,E0,80,21,C3F1 

160 DATA AO20,DF,BD,11,47,A0,01,03,00,ED,8B 
0,21,90,88,11,4A,AO,CO4B 

270 DATA AO30,01,03,00,E0,80,21,03,80,11,4 
D0,A0,01,03,00,E0,80,81A8 

180 DATA A0O40,C9,00,00,00,00,00,00,00,00,0 
0,00,00,00,00,00,00,8064 

180 DATA AO50,00,00,00,00,80,A0,C3,E5,AO,C 
‚02,A1,C3,40,A1,C3,8F0E 

00 DATA AO60,21,A1,C3,2F,A2,C3,28,A2,C3,5 


[1668] 


(117) 
[2996) 


[3996] 
[2659] 
[2473] 
[2715] 
[2756) 
3 
2 [2142] 
Lisung HIGHRES 









der Grafik-Farbe, die PAPER-Farbe ist 
immer Null. Sämtliche WINDOW-Funk- 
tionen gehen verloren, der normale 
ORIGIN x,y funktioniert aber noch. 


ILOW.OUT: Schaltet die Grafik-Befehle zurück auf 
den alten Modus. Hier funktionieren 
auch die WINDOW-Befehle wieder. 

IHIGH: Ersetzt IHIGH.OUT:IHIGH.SHOW. 

ILOW: Ersetzt ILOW.OUT:ILOW.SHOW, 

IHCLS: Löscht den Highres-Bildschirm. 

ICHANGE Schaltet den Mode um, löscht aber nicht 

MODE,m: den Bildschirm. 

IHERTZ60: Schaltet auf 60 Hertz, der Monitor muß 
nachgestellt werden (V.HOLD). 

IHERTZS5O: Schaltet zurück auf 50 Hertz. 

ILOAD,x,a$: Lädt ein Bild der alten Auflösung vom 
Massenspeicher in die neue Auflösung. 
Beix=0 wird das Bild in die obere Hälfte 
geladen, bei x=1 in die untere. 

ICOPY x: Kopiert ein Bild aus dem alten Bild- 
schirmspeicher in den neuen Bildschirm- 
speicher. Bei x=0 nach oben, bei x=1 
nach unten, und bei x=2 ganz. 

IINT.ON Startet die Interrupt—Überwachungs- 
routine. Man kann jederzeit durch 
<CONTROL> +<DEL> auf die alte 
und mit <CONTROL> +<CLR> auf 
die neue Auflösung umschalten. 

IINT.OFF Schaltet die Interrupt-Routine wieder 


aus. 


Highres besteht aus folgenden Programm-Teilen: 


HIGHRES.BAS, HIGHRES.PRG und HIGH6128.BIN, 
HIGH6128.LOD ist der DATA-Lader zu HIGH6128.BIN. 


(Sören Gust/cd) 






A,A2,C3,97,A2,C3,09,D638 
210 DATA AO70,AO,C3,DF,AO,C3,8A,A5,C3,AO,A 
5,03,00,A5,C3,35,A6,F3BC 
220 DATA AO80,48,49,47,48,2E,53,48,4F,07,4 
C,4F,57,2E,53,48,4F,87C9 
230 DATA AO90,07,48,45,52,54,5A,35,B0,48,4 
5,52,54,5A,36,80,48,2B17 
240 DATA AOAO,43,4C,03,43,48,41,4E,47,45,4 
D,4F,44,C5,48,49,47,7492 
250 DATA AOBO,48,2E,4F,55,D4,4C,4F,57,2E,4 
F,55,04,48,49,47,C8,6926 
260 DATA AOCO,4C,4F,D7,49,4E,54,2E,4F,CE,&4 
9,4E,54,2E,4F ,46,C6,FAEE 
270 DATA AODO,4C,4F,41,C4,43,4F,50,09,00,C 
D,E5,AO,C3,5A,A2,CD,DE28B 
280 DATA AOE0,02,A1,C3,97,A2,01,0C,8C,ED,4 
9,04,£0,49,01,00,8C,8847 
290 DATA AOFO,ED,49,01,20,80,E0,49,01,08,B 
C,ED,49,01,03,80,ED,ıCC3 
300 DATA A100,49,C9,01,0C,8C,E0,49,01,30,B 
D,ED,49,01,00,8C,E0,C8C9 


[3926] 
















(3470) 
[3063] 
[3220] 
[3278] 
(2493) 
[3629] 
[2931] 
[2839] 


[3677] 








310 DATA A11l0,49,01,00,8D,ED,49,01,08,BC,E 
0,49,01,00,BD,ED,49,393E 

320 DATA A120,C9,01,04,8C,ED,49,01,1F,BD,E 
D,49,01,05,8C,ED,49,BED2 


[3569] 





[3281) 







Listing HIGHRES 
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Tips & Tricks 


330 DATA Al30,01,06,80,E0,49,01,07,8C,ED,4 
9,01,18,80,E0,49,C9,ED40 
340 DATA A1l40,01,04,BC,ED,49,01,26,B0,ED,4 
9,01,05,8C,E0,49,01,0F6D 
350 DATA A1l50,00,80,E0,49,01,07,BC,ED,49,0 
1,1E,8D,ED,49,C9,&5,DADC 
360 DATA A160,05,05,44,40,21,8F,01,A7,ED,4 
2,E5,70,47,E6,F8,6F,7CıF 
370 DATA Al70,54,50,78,95,07,07,07,47,0E,0 
0,29,29,19,29,09,01,7DF4 
380 DATA A180,40,00,09,E3,01,C8,00,A7,ED,&4 
2,E1,FA,92,A1l,01,00,ECBA 
390 DATA A190,38,09,01,78,E6,07,47,7A,0F,c 
8,18,0F,C8,18,0F,CB,3835 
400 DATA AlAO,18,E6,1F,57,19,01,E3,7A,FE,O 
2,38,11,70,06,C8,FA,D87A 
410 DATA A1B0,80,A1l,FE,08,30,07,E1,11,00,3 
8,19,78,C9,E1,78,C9,C03C 
420 DATA AlCO,ED,53,97,86,22,99,86,DF,AA,A 
4,C9,ED,48,95,86,09,6DE0 
430 DATA AlDO,EB,ED,48,93,86,09,EB,CB, 7C,c 
0,08, 7A,C0,01,80,02,0E8C 
440 DATA AlEO,EB,E5,A7,EO,42,E1,F0,E8,01,9 
0,01,E5,A7,ED,42,E1,434F 
450 DATA AIFO,FO,CO,5F,Al,E5,4F,3A,C3,B7,8 
7,87,87,81,4F,06,00,74A4 
460 DATA A200,21,10,A2,09,3A,A3,86,A6,4F, 7 
E,2F,E1,A6,B1,77,C9,F221 
470 DATA A210,AA,AA,AA,AA,55,55,55,55,88,8 
8,44,44,22,22,11,11,0808 
480 DATA A220,80,40,20,10,08,04,02,01,00,7 
E,00,C0,1C,80D,C9,F3,2BFo 
490 DATA A230,E0,73,49,A2,21,D0,3F,01,00,0 
0,31,E0,7F,C5,28,7C,7F8D 
500 DATA A240,85,20,FA,ED,78,49,A2,FB,C9,0 
0,00,C3,C0,A1,C3,04,3E26 
510 DATA A250,A2,C3,51,A4,C3,DE,BB,C3,83,A 
4,21,48,A2,11,0C,80,0124 
520 DATA A260,01,03,00,E£0,80,21,4E,A2,11,E 
2,80,01,03,00,£0,80,8CC9 
530 DATA A270,21,51,A2,11,0F,80,01,03,00,E 
0,80,21,54,A2,11,90,82DF 
540 DATA A280,88,01,03,00,£0,80,21,57,A2,1 
1,03,80,01,03,00,ED,5941 
550 DATA A290,80,3E,31,32,28,87,09,21,41,A 
0,11,0C,80,01,03,00,B5DA 
560 DATA A2A0,ED,B0,21,44,A0,11,E2,80,01,0 
3,00,£0,80,21,47,AO,D6E4 
570 DATA A2B0,11,0F,80,01,03,00,E0,80,21,& 
A,A0O,11,90,88,01,03,9354 
580 DATA A2C0,00,E0,80,21,40,A0,11,03,8D,0 
1,03,00,E0,80,3E,18,1243 
590 DATA A2D0,32,28,87,C9,DF,AD,A4,C9,ED,&4 
8,97,86,E0,43,A2,A4,0748 
600 DATA A2EO0,ED,48,99,86,E0,43,A4,A4,ED,5 
3,97,86,22,99,86,ED,F14E 
610 DATA A2FO,48,95,86,09,E8,ED,48,93,86,0 
9,E8,CB,7C,C0,CB, 7A,308E 
620 DATA A300,C0,01,80,02,EB,E5,A7,ED,42,E 
1,F0,E8,01,90,01,E65,042A 
630 DATA A310,A7,ED,42,E1,FO,E5,2A,A&4,A4,E 
0,48,95,86,09,22,A4,186E 
640 DATA A320,A4,C8,7C,C2,43,A4,01,90,01,A 
7,E0,42,F2,43,A4,2A,405D 
650 DATA A330,A2,A4,ED,48,93,86,09,22,A2,A 
4,CB,7C,C2,43,A4,01,0092 
660 DATA A340,80,02,A7,ED,42,F2,43,A4,El,E 
0,48,A4,A4,E5S,A7,ED,OSAC 
670 DATA A350,42,E1,20,0E,£5,21,00,00,19,E 
0,48,A2,A4,A7,ED,42,3EBE 
680 DATA A360,E1,C08,E0,53,9E,A4,22,A0,A4,D 
0,E5,01,01,00,E5,2A,EC44 
690 DATA A370,A2,A4,A7,ED,52,E1,FA,FE,A3,D 
5,E0,58,A4,A4,A7,EO,54Al 
700 DATA A380,52,F4,45,A4,01,2A,A0O,A4,05,E 
5,E0,58,9E,A4,2A,A2,6957 
710 DATA A390,A4,A7,ED,52,FC,49,A4,ES,ED,5 
B,AO,A4,2A,A4,A4,A7,554B 
720 DATA A3A0,ED,52,FC,49,A4,D1,ED,53,A6, A 
4,22,A8,A4,05,E5,A7,8EA7 
730 DATA A3B0,E0,52,FC,12,A4,F4,18,A4,54,5 
0,C8,0C,CB,8C,CB,10,£589 
740 DATA A3C0O,E5,0D,E1,E8,01,£0,53,A0O,A4,D 
1,E0,53,9E,A4,E5,DD,13F5 
750 DATA A3D0,E5,ED,58,A6,A4,A7,E1,ED,52,F 
C,1E,A4,DD,ES,ED,58,4833 
760 DATA A3EO0,A6,A4,A7,E1,E0,52,F4,2E,A4,E 
0,58,9E,A4,2A,AO,A4, 79CB 
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[2906] 
{2318] 
[3386] 
[3760) 
[3106] 
[3443] 
[2462] 
(2946) 
[3835 ) 
[3005] 
(4597) 
[4128] 
[2988] 
[3630] 
[3248] 
(2814) 
(3365) 
[3468) 
(3002) 
[4466] 
[3299] 
[2289] 
[3627] 
[2542] 
[1531] 
[3261] 
[3080] 
[2510) 
[3704] 
(3166) 
[2904] 
(3379) 
[2644] 
[3021] 
[3074] 
13298] 
[3566) 
(3115) 
[3189] 
(2679) 
(3592) 
[3308] 
[1785] 


[2532) 


770 DATA A3FO,C5,CD,F1,Al,C1,E1,2B,7C,8B5,2 [3459] 
0,03,00,E1,C9,ED0,58,16DD 

780 DATA A400,A4,A4,A7,ED,52,FC,45,A4,ED,5 [4401] 
B,A2,A4,2A,A4,A4,C3,026B 

790 DATA A410,88,A3,DD,El,E1,E1,0D0,E9,DD,E [3024] 
1,E1,01,00,E9,ED,58,EC41 

800 DATA A420,A8,A4,DD,19,E0,58,9E,A4,13,E [3616] 
0,53,9E,A4,C9,2A,AO,9BDO 

810 DATA A430,A4,09,22,AO,A4,ED,5B,A6,A4,A [4239] 
7,00,E5,E1,ED,52,ES,EE95 

820 DATA Aaa0, D0,E1,C9,E1,C9,01,FF,FF,C9,2 "ta160) 
8,7C,2F,67,70,2F,6F,DC8B 

830 DATA A450.C9.E0.53,97,86,22,99,86,DF,8 [3709] 
0,A4,C9,E0,48,95,86,3010 

840 DATA A460,09,EB,ED,48,93,86,09,EB,CD,5 [3045] 
F,Al,E5,4F,3A,C3,87,8180 

850 DATA A470,87,87,87,81,4F,06,00,21,10,A [3201] 
2,09, 7E,4F,E1,3A,C3,0673 

860 DATA A480,87,47,87,80,3C,47,3A,C3,B7,E [3512] 
6,01,90,E0,44,47,79,86F0 

870 DATA A490,A6,4F,07,B1,4F,10,FB,CD,2F,B [2906] 
c,Cc9,3E,02,C9,00,00,123C 

880 DATA A4AO,00,00,00,00,00,00,00,00,00,0 [3221] 
0,CB,Al,FF,D8,A2,FF,1653 

890 DATA A4B0,5C,A4,FF,24,2C,E5,C0,A5,BB,D [3478] 
C,09,89,11,BE,A6,01,0814 

9800 DATA A4C0,08,00,E0,80,C0,06,89,11,C6,A [4239] 
6,21,BE,A6,CD,53,8C,F04B 

910 DATA Aa00, E1,5C,16,00,62,10,05,E8,21,3 [3511] 
2,00,A7,E0,52,29,29,754C 

920 DATA A4E0,29,01,E5,E8,29,29,29,3A,C3,8 [2349] 
7,47,3E,02,90,87,28,1065 

930 DATA A4F0,04,29,30,18,F9,EB,E1,CD,5F,A [2837] 
1,3A,C3,87,87,28,53,000C 

940 DATA A500,30,28,25,11,C6,A6,3A,A3,86,4 [3781] 
F,06,08,1A,Al,12,13,05F6 

950 DATA A510,10,FA,3E,08,E0,47,01,00,08,ı1 [2871] 
B,1A,77,A7,ED,42,18,86D4 

960 DATA A520.E0,57,30,E0,47,20,F3,C9,11,C (3572) 
6,A6,3A,A3,86,4F,06,8E51 

970 DATA A530,10,1A,A1,12,13,10,FA,01,00,0 [2552] 
8,3E,08,E0,47,23,1B,AE73 

980 DATA A540,1A,77,18,28,1A,77,23,A7,ED,4 [2479] 
2,18,E0,57,30,E0,47,9571 

990 DATA A550,20,EE,C9,11,C6,A6,3A,A3,86,4 [3185] 
F,06,20,1A,A1,12,13,8754 

1000 DATA A560,10,FA,01,00,08,3E,08,ED,47, 
23,23,23,18,1A,77,18,C863 

1010 DATA A570,28,1A,77,18,28,1A,77,1B,2B, [2906] 
1A,77,18,23,23,23,A7,8838 

1020 DATA A580,ED,42,ED,57,30,ED,47,20,E4, 
C9,3A,FA,A6,87,C0,21,6C91 

1030 DATA A590,E6,A6,11,80,A5,06,81,C0,D7, 
BC,3E,FF,32,FA,A6,C9,101A 

1040 DATA A5AO,3A,FA,A6,87,C8,21,E6,A6,CD, [2989] 
00,8C,AF,32,FA,A6,C9,D176 

1050 DATA A5B0,00,E5,00,21,3F,86,00,7E,02, [2986] 
CB,7F,20,10,00,7E,09,A96D 

1060 DATA A5SCO,CB,7F,CC,02,A1,00,7E,02,C8, [3642] 
47,CC,E5,A0,DD,E1,C9,068A 

1070 DATA A5D0,FE,02,C0,00,6E,00,00,66,01, [3214] 
DD, 7E,02,46,23,5E,23,C66B 

1080 DATA A5EO0,56,EB,87,28,25,30,C0,11,00, 
79,C0,77,8C,21,10,40,E891 

1090 DATA A5SFO,CD,80,8C,30,11,47,3E,F0,A5, [2511] 
20,07,3E,07,A4,20,02,4339 

1100 DATA A600,18,01,70,23,18,EA,CD, 7A,BC, [2304) 
Cc9,C0,77,8C,21,40,00,8F76 

1110 DATA A610,CD,83,8C,CD,7A,BC,21,00,40, [2175] 
11,00,78,05,&5,01,10,54B2 

1120 DATA A620,00,ED,80,E1,01,00,08,A7,ED, [3469] 
42,EB,E1,A7,ED,42,7C,9C27 

1130 DATA A630,85,C8,EB,18,E7,FE,01,C0,D00, (2751] 
7E,00,87,28,58,30,28,187E 

1140 DATA A640,66,30,C0,21,7F,02,22,9E,A4, 
11,8F,01,E0,53,AO,A4,3A55 

1150 DATA A650,£8,E85,05,C8,0C,CB,10,3A,C3, [3230] 
87,47,3E,02,90,28,08,0912 

1160 DATA A660,CB,0A,CB,18,30,28,04,C8,0A, 
CB,1B,C0,10,8C,D1,E3,6057 

1170 DATA A670,CD,5F,A1,01,1A,77,2A,9E,A4, 
ED,58,A0O,A4,01,08,00,D87D 

1180 DATA A680,A7,ED,42,22,9E,A4,F2,50,A6, [2046] 
21,7F,02,22,9E,A4,18,22DE 

1190 DATA A690,E0,53,A0,A4,CB,7A,28,88,C9, [3339] 
21,00,C0,11,40,00,01,3932 


[3289] 


(2847) 


[2296] 


[3138] 


[2623] 


(1887) 


(2772) 
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NEU: 
m Heißer Draht 


jetzt 
mit Durchwahl! 


Haben Sie Fragen, die nicht warten können? Dann 
















1200 DATA A6AO,DF,3F,ED,BO,C3,16,A6,21,00, [2531] 
c0,11,10,40,01,F0,07,FDB2 
1210 DATA A6B0,E0,80,01,10,00,09,E8,09,£8, [2262] 
£8,7C,20,F0,C9,00,00,153E 
1220 DATA A6C0,00,00,00,00,00,00,00,00,00, [2822] 
00,00,00,00,00,00,00,0000 
1230 DATA A600,00,00,00,00,00,00,00,00,00, [3293] 
00,00,00,00,00,00,00,0000 
1240 DATA A6E0,00,00,00,00,00,00,00,00,00, [3104) 
00,00,00,00,00,00,00,0000 













1250 DATA A6F0,00,00,00,00,00,00,00,00,00, [2289] rufen Sie uns an! Unser Leser-Telefonservice steht 
00,00,00,00,00,07,00,000E Ihnen 

1260 DATA *ENDE* [502] 

1270 adr=&A000:zeile=140:MEMORY adr-ı [2477] r 5 

1280 READ d$:IF d$="#ENDE*"THEN 1390 [1210] jeden Mittwoch 

1290 pr=0 (117) R 

1300 FOR i=1 TO 16 [317] von 17.00 bis 20.00 Uhr 
1310 READ a$:a=VAL("&"+a$) [883] Janis 

1320 POKE adr,a:adr=adr+1 (717) zur Verfügung. 


















1330 pr=pr*#2:IF pr>65535 THEN pr=pr-65535 [2485] 
1340 pr=UNT(pr)XOR a:IF pr<O THEN Pr=pr+65 [1890) 
536 

1350 NEXT 1 [375] 

1360 READ pr$:pr2=VAL("&"+pr$): IF pr2<O TH (2610) 
EN pr2=pr2+65536 

1370 IF pr<>pr2 THEN PRINT"Pruefsummenfenhl [3615] 
er in Zeile";zeile:SToP 









Sie erreichen Ihren Redakteur jetzt direkt unter einer 
Durchwahlnummer. Auf Ihren Anruf freuen sich: 


Claus Daschner (CPC) 
(0 56 51) 8009 - 16 


Jürgen Borngießer (CPC, PC) 











































1380 zeile=zeile+10:G0T0 1280 [1985) r 
1390 SAVE"HIGH6128.8IN",B,&A000,&6F8 [1691] (056 51) 80 09 - 17 
1400 PRINT d$:END (346) 






Ralf Schößler (PCW) 
(05651) 8009 - 18 


Achtung: Die in früheren Heften veröffentlichte 
Sammelnummer ist ab sofort ungültig — diese 
Nummer bitte nicht mehr anwählen! 
















1 REM HIGHRES,PRG {1121) 
10 MODE 2:CALL &8c02 (1642) 
20 IF PEEK(&39)=&41 THEN adr=&AE62:na$="hi [4003] 
gh6128.bin" 

30 IF PEEK(adr)<>0 OR PEEK(adr+1)<>&80 OR (5375) 
PEEK(adr+2)<>&2F OR PEEK(adr+3)<>&81 THEN 

270 

40 SYMBOL AFTER 256:MEMORY &SFFF:LOAD na$, [6000) 
&AOOO:CALL &AO00:SYMBOL AFTER 240 

50 SYMBOL 255,102,0,60,102,102,102,60 (1522) 
60 PRINT"Highres Version 1.2 " by S"CHR$(2 [4023] 
55)"ren Gust Dezember 1988" 

70 PRINT:PRINT"Befehle:"“ [1610] 
80 PRINT:PRINT"!HIGH.SHOW Highres anzei [4459] 
gen" 

90 PRINT" HIGH.OUT PLOT(R), DRAW(R), [9214] 
TEST(R) auf HIGHres umlenken, PEN auf Graf 

ik" 

100 PRINT"!HIGH IHIGH.SHOW: | HIGH. [2247) 
QUT" 

110 PRINT"! LOW.SHOW Lowres anzeigen" [2565] 
120 PRINT" !LOW.OUT PLOT(R), DRAW(R), [5476] 
TEST(R) auf LOWres umlenken, PEN auf Text" 

130 PRINT" }LOWw ıLOW.SHOW: }LOW.OUT [2231] 










Ordnung und Übersicht 
schaffen die beliebten 
DMV Sammelmappen 



















Wiunsikon f 


1989 





140 PRINT" |HERTZS5O 50 Hertz" [1756) 

150 PRINT" !|HERTZSO 60 Hertz" [2078) 

160 PRINT"IHCLS Highres loeschen” [2823] 

170 PRINT" |CHANGEMODE,m Modewechse] ohne © (2094) 

L8" 

190 PRINT"}INT.ON <CTRLI+LDEL>=!LOW, [4819) 
<CTRLIFCCLRI=IHIGH" 

200 PRINT"}|INT.OFF <CTRLI+<DEL>, <CTR [4340] 

L>+<CLR> keine Funktion" 

210 PRINT"ILOAD,x,@a$ Low-Bild von Disc [6017] 

nach High laden, x=0:oben, x=1l:unten" 

220 PRINT"!ICOPY,x Low-Bild nach High (6914) 








:1989 





























kopieren, x=0:oben, x=l:unten, x=2:ganz" 
230 CALL &8800 [399] 
240 KEY DEF 16,1,16,16,0 [1310) 
250 KEY DEF 79,1,127,127,0 (1047) 
260 NEW [318] 







270 CALL &8800:PRINT"Fehler: BASIC-Speiche [4963] 
r nicht bei &812F":PRINT 






IT 


Bitte Bestellkarte era t 
DMV Verlag : Postfach 250 : 3440 Eschwege 





Listing HIGSHRES 
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JOYCE , 


An ülıe Kegelbrüder und Schwestern der 


FÜbEL = 


An nächsten Sonntag, 


Mupipzie 


dem 


30.4. 1909 


Um 





a En 


"ALLE MNEULMNTE ” 


dürft Ihr wieder 


Bis dahin: Euer 


werfen 





Abb. 1: Ein Beispiel für die Anwendung von JOYPRINT: Eine Einladung, geschrieben mit verschiede- 
nen Schrift-Fonts des 'Mouse Packs' der Firma Gerdes 


Da kommt Freude auf 
Der JOYCE-Drucker druckt im 


Großformat 


Die Anwendungen des JOYCE-Druckers beschränken sich für gewöhnlich 
darauf, Briefe, Listings oder ähnliche Texte auszudrucken und ab und an 
mal eine Hardcopy zu Papier zu bringen. In Schriftbild und Geschwindig- 
keit eher bieder als berauschend, leistet er doch treu und brav, was ihm ab- 
verlangt wird. Erwartet man jedoch Besonderes, stößt man schnell an die 
Grenzen des Druckertreibers, des Programms, das für die Steuerung der 
Drucker-Mechanik beim Drucken verantwortlich ist. 


Nun kann der Drucker des JOYCE al- 
lerdings einiges mehr, als ihm vom 
Treiber-Programm zugestanden wird. 
In diversen Veröffentlichungen wurde 
ja schon gezeigt, wie man ihn dazu 
bringen kann, die Gummiwalze zu- 
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rückzubewegen, damit das Papier 
rückwärts durch den Drucker läuft, 
oder wie Sie selbst Zeichen für den 
Drucker definieren können, wie die 
Hardcopy auf DIN-A-4-Format ver- 
größert werden kann usw. Auch das 


hier beschriebene Programm JOY- 
PRINT soll die Möglichkeiten des 
Druckers erweitern helfen. Wie wäre 
es, wenn Sie die Einladungen zu Ihrem 
nächsten Kegelabend etwas anspruchs- 
voller gestalten würden? JOYPRINT 
macht’s möglich! (siehe Abb. 1) Der 
Trick’ dabei ist, daß der Drucker wäh- 
rend der Ausgabe von Texten aus- 
schließlich im Grafikmodus betrieben 
wird und zur Erzeugung der einzelnen 
Schriftzeichen auf die für die Bild- 
schirmausgabe benutzten Zeichenma- 
trizen zurückgreift. Damit können 
dann auch andere Schriftzeichenfonts, 
wie zum Beispiel jene, die mit dem 
Character-Designer CD.COM (JOYCE 
Programmsammlung VOL. I) erstellt 
wurden, oder die Schrift-Fonts des 
"Mouse-Packs’ der Firma Gerdes, zum 
Drucken verwendet werden. Aber auch 
der Standard-Schriftfont, wie er unter 
CP/M Plus zur Verfügung steht, bietet 
bereits vielfältige Gestaltungsmöglich- 
keiten. 


In Assembler und BASIC 


Da die Umsetzung der Bildschirm-Zei- 
chenmatrix in eine vom Drucker ver- 
wendbare Form sehr viel Zeit in An- 
spruch nimmt, wurde JOYPRINT in 
Maschinensprache geschrieben. Für 
den BASIC-Programmierer muß dieses 
Maschinenprogramm über einen soge- 
nannten DATA-Lader (JOYPRINT. 
DAT, Listing 1) in den Speicher 
’gepoked’ werden, bevor es benutzt 
werden kann. Nachdem dies geschehen 
ist, schalten Sie über das BASIC-Kom- 
mando 'OPTION LPRINT!' je nach Be- 
darf die Drucker-Ausgabe auf JOY- 
PRINT um. In der vorliegenden Ver- 
sion wird die Ausgabe an den Drucker 
mit 

OPTION LPRINT = &HEEO0O 


auf die JOYPRINT-Routine umge- 
schaltet, wobei &HEEOO die Start- 
adresse des Maschinen-Programms 
darstellt. Das Kommando 


OPTION LPRINT 


ohne Adressenangabe schaltet wieder 
auf die ’normale’ Drucker-Ausgabe 
zurück. Sie können also für Ihre Texte 
auswählen, ob Sie bestimmte Teile mit 
JOYPRINT drucken wollen oder mit 
dem normalen Zeichensatz des 
Druckers. Das Drucken selbst erfolgt 
wie gewohnt mit dem BASIC-Kom- 
mando ’LPRINT’. Das Demopro- 
gramm JPDEMO.BAS (siehe Listing 2) 
bietet Ihnen einen Einblick in die Mög- 
lichkeiten von JOYPRINT (siehe auch 


JOYCE 





Abb.2). Folgende Optionen stehen Ih- 
nen zur Verfügung: 


— 20 Schriftbreiten in vier Schrifthö- 
hen (das ergibt theoretisch 80 ver- 
schiedene Schriftgrößen) 


— drei Schriftarten (normal, dünn und 
fett) 

— vier Druckrichtungen (0°, 90°, 
180° und 270°) 


— farbinvertierter Ausdruck (normal 
und unterstrichen) 


— einstellbarer Zeilenabstand (in 
1/16“-Schritten) 


— Doppeldruck 


Sie sehen also, zukünftig haben Sie vie- 
le Variationsmöglichkeiten, Ihre Texte 
aufs Papier zu bringen. Die Auswahl 
der Ausgabe-Optionen erfolgt über so- 
genannte ESCAPE-Sequenzen, das 
sind Steuer-Sequenzen, die mit dem 
ASCII-Zeichen 27 (&H1B) eingeleitet 
werden. Die für JOYPRINT gültigen 
Sequenzen finden Sie in Abb. 3 aufge- 
listet. Um also auf vierfache Zeichen- 
breite umzuschalten, muß die Steuerse- 
quenz ’ESC b 4’ an den Drucker (be- 
ziehungsweise JOYRINT) geschickt 
werden — also unter BASIC mit 


LPRINT CHR$(27)“b“CHRS(4) 


Um den Doppeldruck einzuschalten 
geben Sie 


LPRINT CHR$&(27) “d“CHR$(1) 


ein, dies entspricht dann der Steuerse- 
quenz 'ESC d 1’. Da die 'normalen’ 
Funktionen des Druckers ja auch über 
ESCAPE-Sequenzen gesteuert wer- 
den, stellt dies keine Besonderheit in 
der Kommunikation mit dem Drucker 
dar. 


Achtung! 


Folgendes sollte bei der Anwendung 
von JOYPRINT beachtet werden: 


l. Während Sie mit JOYPRINT 
drucken, haben alle Drucker-Steuerse- 
quenzen, außer den in Abb. 3 aufgeli- 
steten, keine Bedeutung und werden 
daher wie normale Zeichen behandelt. 


2. Pro Zeile können max. 120 Zeichen 
in normaler Breite (Breite 1) gedruckt 
werden. Wird die Breite geändert, ver- 
ändert sich die Anzahl der Zei- 
chen/Zeile entsprechend. Zeichen, die 
über die aktuelle Zeile hinausgehen, 
werden automatisch in die nächste Zei- 
le übernommen. 


3. Folgende Optionen können nur zu 
Beginn einer neuen Zeile eingeschaltet 
beziehungsweise geändert werden: 


JOYPRINT bietet: 
= &0 Zeichenbreiten und 4 Zeichenhöhen: 


ARRRARRARARRARARAARAAAARBEBBBBBBBBBBBECC CC cc coDDDDD DEI ET FT EZ 


FF fr SS Ss HHHIZITC.F. FF 


EKEELLPFIIID 


= 3 Schriftarten: 


Duennme S5chri 








- Zeichen konnen in 4 Richtungen ausgedruckt werden: 


Normal oo”) 
9297 gedreht 

1897 sedreht 

2707 gedreht 





= Ausgabe-Attribute: 


normal 








SRARARRAREARARARZARAASZFRTFRRRRTARZETT. 


Nurseemuuuuuuuun uuuunuuuunnnn 





ft 


Normale Schr ift 
Fette Schr a £tE 


“ 


U U u ar rn 
IAARAARAERAAAMASÄRIRRARRIARRAR IN 





ai 
Zr 
u 
< 


wu nn 





- und alles im Doppeldruck und nit einstellbaren Zeilenabstand 





Abb. 2: Über ESC-Sequenzen einstellbar: die Möglichkeiten von JOYPRINT 


— Einstellung der Zeichenhöhe 
— Einstellung des Zeilenabstandes 
— Doppeldruck 


4. Um Fehlinterpretationen zu vermei- 
den, empfiehlt es sich, bei vergrößerter 
Schrift keine ESCAPE-Sequenzen am 
Ende einer Zeile zu schicken, sondern 
nach Möglichkeit am Anfang der näch- 
sten Zeile. 

JOYPRINT können Sie sowohl im Di- 
rekt-Modus des BASIC-Editors ver- 
wenden als auch in eigene Programme 
einbinden. Das Einbinden erfolgt mit 
den BASIC-Kommandos ’CHAIN’ 
bzw. 'CHAIN MERGE’ (siehe Demo- 
programm). Für die Verwendung im 
Direkt-Modus muß JOYPRINT.DAT 
natürlich zuerst in den Speicher gela- 
den werden, dies kann mit 


RUN “JOYPRINT.DAT*“ 


geschehen. Die dabei auftretende Feh- 
lermeldung (Nr. 3, vgl. Benutzerhand- 
buch $. 363) können Sie getrost igno- 
rieren. In beiden Fällen ist ein Umlei- 
ten der Drucker-Ausgabe durch das 
"OPTION LPRINT’-Kommando, wie 










oben beschrieben, erforderlich, bevor 
Sie JOYPRINT benutzen können. 
(Norbert Finke/rs) 





Diese Programme sind in Basic ge- 
schrieben. 






Nach dem Eingeben sollten Sie zu- 
erst mit SAVE“"NAME“ <RETURN> 
abgespeichert werden. 








Das Starten erfolgt entweder unter 
CP/M durch A> BASIC NAME 
<RETURN > oder unter BASIC 
durch RUN“NAME“ <RETURN >. 








Damit Sie selber noch Änderungen in 
der Erweiterung vornehmen können, 
steht Ihnen mit Listing 3 der Assem- 
bler-Quelltext zur Verfügung. 
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LISTING >JOYPRINT«, 


<88> 
% 3 
<95> 
<71> 
<37> 
<14> 
x 2> 
< 2> 
<> 
<30> 
«573 
< 5> 
<13> 
55> 
<62> 
<60> 
<97> 
<82> 
<22> 
42> 
<15> 
<33> 
<24> 
X.:73 
<93> 
<46> 
<21> 
<58> 
< 6> 
< 2» 
<62> 
<96> 
66> 
<49> 
(24) 
<74> 
<37) 
<34> 
<40> 
<98> 
62> 
<45> 
<42> 
<32> 
<96> 
«573 
<91> 
<48)> 
<37> 
(47) 
<67> 
<92> 
<56> 
<15> 
<10> 
<50> 
<22> 
(44) 
<22> 
<75> 
<83> 
34) 
<77> 
<74> 
< 3 
<89> 


LISTING >JPDEMO <«, 


<11> 
<29> 
«71> 
55) 
mn 
<26> 
<88> 
«56> 
<46> 
195> 


<28> 
<87> 
«75> 
<40> 


<16> 
<38> 
<71> 
< 3 


49990 
49991 
49992 
49993 
49994 
49995 
50000 
50001 
50002 
50003 
50004 
50005 
50006 
50007 
500086 
50009 
50010 
50011 
50012 
50013 
50014 
50015 
50016 
50017 
50018 
50019 
50020 
50021 
50022 
50023 
50024 
50025 
50026 
50027 
50028 
50029 
50030 
50031 
50032 
50033 
50034 
50035 
50036 
50037 
50038 
50039 
50040 
50041 
50042 
50043 
50044 
50045 
50046 
50047 
50048 
50049 
50050 
50051 
50052 
50053 
50054 
50055 
50056 
50057 
50058 
50059 


1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
dein 
1100 
1110 
1120 
1130 


1140 
1150 
1160 
1170 


REMARK = >'c. 


"=. JOYPRINT.DAT. - ein Druckertreiber zur * 

'z, alternativen Ausgabe von Text-Informa- * 

'#s, tionen an den Drucker des JOYCE....... * 
written 1989 by NoFi,.... 


MEMORY &HEDFF:RESTORE 50004 

FOR adr=&HEEOO TO &HEE69 

READ a$:POKE adr,VAL("&H"+a$) 

NEXT:GOTO 50013 

DATA 3A,78,EF,87,79,20,0C,FE,0A,28,2A,FE,OC 
DATA 28,26,FE,00,28,22,C0,29,EE,C8,CD, 72,EF 
DATA D8,C5,3E,00,C0,35,EE,3E,0A,CD,35,EE,Cıi 
DATA 18,EA,21,69,EE,5E,1C,C8,73,16,00,19, 71 
DATA C9,F5,3A,A4,F1,87,C4,17,FO,F1,21,69,EE 
DATA 36,00,CD,99,EF,FE,OA,28,06,5F ,0E,05,C3 
DATA 05,00,3A,9F,F1,17,21,64,EE,86,11,03,00 
DATA 32,67,EE,21,65,EE,C3,77,F0,1C,18,4A,01 
DATA 00,00 

FOR adr=s&äHEF71 TO &HFIAB 

READ a$:POKE adr,VAL("&H"+a$) 
NEXT:RETURN.... 

DATA 01,2A,76,EF,E9,81,EF,00,3E,02,83,38,2A 
DATA 21,78,EF,36,FF,CD,A2,EF,21,FE,F0,46,23 
DATA BE,23,5E,23,56,28,0F,10,F6,C0,99,EF,18 
DATA 1C,21,78,EF,36,00,11,81,EF,05,E1,22,76 
DATA EF,37,C9,0E,20,CD,29,EE,28,EA,18,F7,FE 
DATA 18,28,C4,21,A4,F1,3A,71,EF,86,FE,79,DO 
DATA 77,26,17,69,29,29,29,11,69,EF,01,08,00 
DATA CD,0A,F0,3A,90,F1,87,C4,17,F1,3A,AO, Fi 
DATA 8B7,C4,7E,F1,3A,9E,F1,87,C4,25,F1,3A,9F 
DATA F1,87,C4,43,F1,E0,58,A2,F1,06,08,21,71 
DATA EF,4E,3E,80,28,CB,26,1F,30,FA,12,13,00 
DATA 20,F8,10,E0,E0,53,A2,F1,37,C9,F3,3E,82 
DATA D3,F2,ED0,80,3E,86,03,F2,F8,C9,6F,26,00 
DATA 29,29,29,22,A7,F1,CD,6F,FO,3A,63,F0,87 
DATA C4,64,FO,AF,32,A4,F1,21,AQ,F1,22,A2, Fi 
DATA 3A,9F,F1,87,C8,21,Al,F1,34,BE,28,20,3A 
DATA 63,F0,C6,18,11,04,00,C0,5B,EE,21,69,EE 
DATA 46,23,4E,79,E5,C5,C0,72,EF,C1,E1,10,F4 
DATA 3A,A4,F1,18,87,36,00,C9,00,3E£,01,11,04 
DATA 00,C0,58,EE,2A,A7,F1,11,04,00,19,E8,21 
DATA A5,F1,22,86,F0,E0,53,88,F0,11,86,F0,0E 
DATA 70,C3,05,00,00,00,00,00,21,71,EF,FE,15 
DATA 38,02,3E,14,87,20,64,3C,18,61,3A,A4, Fl 
DATA 87,20,5C,79,E6,01,E0,44,21,63,F0,18,51 
DATA 21,9E,F1,E6,03,18,4A,3A,A4,F1,87,20,45 
DATA 21,9F,F1,79,E6,03,07,FE,05,38,39,C6,02 
DATA 18,35,06,02,E6,01,18,05,06,01,17,E6,02 
DATA 4F,21,AO,F1,7E,AO,B1,18,21,FE,03,38,02 
DATA 3E,02,F5,30,3E,A6,28,02,3E,86,32,1F, Fi 
DATA F1,21,90,F1,18,0A,3A,A4,F1,87,20,05,79 
DATA 21,64,EE,77,C3,99,EF,08,62,8A,F0,64,99 
DATA F0,68,80,F0,69,C5,F0,6C,F0,F0,72,A9,FO 
DATA 73,09,F0,75,C8,F0,21,69,EF,06,08,7E,CB 
DATA 3F,86,77,23,10,F8,C9,F5,E0,58,A2,F1,06 
DATA 08,21,69,EF,3E,80,C8,26,23,1F,30,FA,ı2 
DATA 13,10,F1,C0,72,F1,F1,30,20,E3,C9,21,Al 
DATA F1,ED,58,A2,F1,4E,21,69,EF,06,01,FE,08 
DATA 28,0C,CB,21,06,02,FE,04,28,04,C8,21,06 
DATA 04,C5,06,00,09,C1,48,47,C5,7E,12,13,10 
DATA FC,C1,23,00,20,F5,2A,A2,F1,11,69,EF,01 
DATA 08,00,E0,80,C9,21,69,EF,54,50,1F,DC,92 
DATA F1,1F,00,21,07,00,19,17,3F,9F,77,C9,06 
DATA 08,4F ,7E,2F,77,23,10,FA,79,C9,00,00,00 
DATA 00,00,A9,F1,00,18,4C,00,00 


REMARK = >'<. 


JPDEMO 
Demonstration der 
des Programms 

written 1989 


Moeglichkeiten..... 
JOYPRINT.. 
by NOFi... 


MERGE "JOYPRINT.DAT",1070 
50000:. 'JOYPRINT in den Speicher laden 
1620:. 'Druckerkommandos initialisieren 
PRINT"Bitte Papier in den Drucker einlegen un 
e beliebige Taste dr)cken” 
a$=INKEY$:IF a$=""THEN 1100 
lfne$=STRING$(115,143):LPRINT reset$ 
LPRINT "JOYPRINT bietet:":LPRINT 
LPRINT"- 20 Zeichenbreiten und 4 Zeichenhihen 


LPRINT:LPRINT:GOSUB 1540 
LPRINT reset$1ine$:LPRINT 
LPRINT"- 3 Schriftarten: “ 
LPRINT:LPRINT FNbS(S)FNh$(1) 


Listing JOYPRINT 
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1180 
1190 


GOSUB 1470:LPRINT reset$1ine$:LPRINT 
LPRINT"- Zeichen kinnen in 4 Richtungen ausge 


druckt werden:" 


1200 
1210 
1220 
1230 
1240 
1250 

mit 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
rr$" 
1350 
1360 
1370 
1380 
1390 
1400 


LPRINT:LPRINT FNb$S(5)FNn$(1) 

GOSUB 1390:LPRINT reset$}ine$:LPRINT 

LPRINT”- Ausgabe-Attribute:"” 

LPRINT:LPRINT FNb$(4)FNh$(1) 

GOSUB 1310:LPRINT reset$line$:LPRINT 

LPRINT Idp$on$"- und alles im Doppeldruck und 
einstellbarem Zeilenabstand” 

LPRINT reset$cCHR$(12):OPTION LPRINT 


LPRINT"norma] 

LPRINT lund$on$"normal/unterstrichen” 
LPRINT lund$off$1imv$on$" invers 
LPRINT" "Iund$on$"invers/unterstrichen"Tund$o 


DEMO: Zeichenrichtung 


LPRINT"Norma) 
LPRINT 


(O"CHR$(162)") 


FNr$(0)" 90O"CHR$(162)" gedrent: 


(1)"A” 


1410 


LPRINT FNr$(O)"180"CHR$(162)” gedrent:. 


(2)"A” 


1420 


LPRINT FNr$(O)"270"CHR$(162)" gedreht: 


(3)"A" 


1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 


RETURN 
'* 


"=, DEMO: Schriftarten,. 


LPRINT FNt$(1)"Duenne Schrift" 
LPRINT FNt$(O)"Normale Schrift“ 
LPRINT FNt$(2)"Fette Schrift” 
RETURN 

'. 

DEMO: Schriftbreiten u. -hoehen... 
nmununnnnnnnn nn nn nn nn nn nn .—— nn. ” 
FOR 1=0 TO 3:text$=FNh$(1):LPRINT 
FOR j=1 TO 5:c=i#5+j:d=24\c ' 
text$=text$+FNb$(c)+STRING$(d,64+c) 
NEXT:LPRINT text$: NEXT 


"ESC-Zeichen 
"Ein/Aus-Zeichen 
"Sequenz fuer Doppeldruck 
"Sequenz fuer Invers-Druck 
"Sequenz fuer Unterstreichen 
FNI$(n)zes$+"1"+CHR$(n):.,. "Zeilenabstand 
FNnh$(n)=zes$+"n"+CHR$(n):... 'Zeichennhoche 
FNb$(n)zes$+"b"+CHR$(n):.. "Zeichenbreite 
DEF FNt$(n)=es$+"s”+CHR$(n):...., 'Schrifttype 
DEF FNr$({n)zes$+"r"+CHR$tn): '"Schriftrichtung 
OPTION LPRINT=&HEEOO: '"Startadresse festlegen 
reset$=1dp$+toff$+1inv$+toff$+lundstoffs+FNnh$(0O 


on$=CHR$(1):0FfFf$=CHR$(0):... 
Idp$=es$+"d": 
linv$zes$+t"i":.... 
lund$=es$+"u":,. 
DEF 
DEF 
DEF 


I)+FNbSLL)+FNESLO)+FNT$(O) 


1740 


OPTION NOT TAB:WIDTH LPRINT 255:RETURN 
'* 


DIDIDIIIDIIIIyIIIIIIIIIIIIIIIILLCLLCLELELELLEEELLLELLELEELLLLEL ER 


‚>> 
>> 
‚>> 
‚>> 
i>?> 
‚>> 
>> 
i»>» ESC I 
ESCh 
ESC 8 
ESC r 
ESC d 
ESC I 
ESC u 


JOYPRINT,ASM 2: 


ermoeglicht Text-Ausdrucke in diversen Schriftarten, <{ 
-=groessen und -richtungen auf dem Drucker des JOYCE € 
(PCW8265/8512). 
erfolgt vober 
(Einzelheiten 
ESsCbn (n= 
n (n 

n (n ..3) 
n (n ..2) 
n (n 3) 
1/0 

1/0 

1/0 


Die Auswahl der gewuenschten Schrift <{ 
folgende ESC-Sequenzen: cc 
. Programmbeschreibung) [z: 
++20) stellt die Zeichenbreite ein << 
255): stelit den Zeilenabstand ein tt 

ı stelit die Zeichenhoehe ein °< 

stelit die Schriftart ein [ 
stellt die Schriftrichtung eintt 
Doppeldruck ein/aus “x 
Inverse Ausgabe ein/aus << 
unterstreichen ein/aus [x 
‘< 

written 1989 by NorFi cc 


BIIIIIIIIIIIIII III III III IIIDIECLLLLLCLLLLLELLELLLLLLEELEEL Le 


‚> EQUATES 


; 
8008 

LSTBLK 
LSTOUT 
BLOCK2 
BLOCK& 


EQU 
EQU 
EQu 
EQU 
EQU 


00005H 
000708 
00005H 
00082H 
00086H 


;CP/M-BDOS Einsprung 
;BDOS-Funktion LIST BLOCK 
;BDOS-Funktion LIST OUTPUT 
;Blocknummer Speicherblock #2 
;Blocknummer Speicherblock #6 


Listing JOYPRINT 














PRTBL2 EQU OO00F2H ‚Port-Nummer Adress-Block #2 
LFCDE EQU O0000AH iLine-Feed-Code 


FFCDE EQU O000CH ;Form-Feed-Code 
CRCDE EQU 00000#H ‚Carriage-Return-Code 
ESCCDE EQU OO018H ‚ESC-Code 
SPCCDE EQU 00020H ;Space-Code 
MBLEN EQU 00980 ‚Val,:Zeilenlaenge (Grafikmodus) 
MAXCHR EQU 00121 ‚Max. Anzahl Zeichen/Zelie +1 
; 
ORG DEEOOH ;Programm-Start im Common-Speicher 


‚>Aufruf von JOYPRINT: C = Zeichen 


START LD A,(ESCSEQ) ;Pruefen, ob ESC-Bearbeitung 


OR A,A 

LO A,c ‚Zeichen nach A holen 

JR NZ,ESCST ESC-Bearb., Ctri-Codes n. beachten 
cp A,LFCDE ;Line-Feed? 

JR Z,CTLCDE ‚ja, -> CTLCDE 


cp A,FFCDE ;Form-Feed? 
JR 2,CTLCDE ja, -> CTLCDE 
cp A,CRCDE ariage-Return? 








UR Z,CTLCDE ‚wenn ja, -> CTLCDE 

ESCST CALL LDCBUF ‚Zeichen in Puffer eintragen 
RET zZ ‚wenn Puffer vol}, abbrechen 
CALL LOCHAR ‚sonst Zeichen uebernehmen 
RET cC ‚und wieder zurueck, wenn o,k, 
PUSH BC ‚sonst Zeichen sichern 
LD A,CRCDE ;Carriage-Return ausgeben 
CALL CTLCDE 
LO A,LFCDE ‚Line-Feeg ausgeben 
CALL CTLCDE 
POP BC Zeichen zuruecknolen 
JR ESCST und nochmal versuchen 


; 
;>Zeichen in Zeichen-Puffer eintragen 


; 
LDCBUF LD HL,CBUFF Startadresse Zeichenpuffer -> HL 
LD E,(HL) und Anzahl Eintraege holen 

Inc E ‚Eintraege +1 

BET 2 ikein Platz?, d. abbrechen 

LD (HL),E ‚sonst neue Anzahl wieder sichern 
LDd 0,0 ‚DE = Offset fuer neuen Eintrag 
ADD HL,DE ‚Offset zur Startadresse addieren 
LDd (HL),C iund Zeichen eintragen 

RET ‚danach zurueck 


>CR=/LF- oder FF-Code bearbeiten 


; 
CTLCDE PUSH AF Zeichen sichern 
Lo A,(BUFLEN) ;Pruefen ob Daten im Puffer 
OR A,A 
CALL NZ,PRINTL iw. Daten vorhd., zuerst drucken 
POP AF Control-Zeichen zurueckholen 
LDd HL,CBUFF ‚Adresse Zeichen-Puffer -> HL 
LD (HL),o ‚und Zachler auf O setzen 
CALL ESCEND iStartadresse setzen 
cp A,LFCDE iLF-Code? 
JR Z,LFOUT ‚Ja, Line-Feed ausgeben 
LD E,A ‚sonst Zeichen -> E 
Lo C,LSTOouT ;8D0S-Funktionsnummer -> C 
JPp 8008 sund ausfuehren 
LFOUT ıLD A,(CSIZE) ‚Aus Zeichenhoehe 
RLA ‚e.2 
Lo HL,LSPC ‚und dem eingestellten Zeilenabstd. 
ADD A,tHL) ‚den endgit. Zeilenabstd. errechren 
Lo DE,0003 ‚Anzahl Zeichen der ESC-Sequenz 


FEED Lo (LPITCH),A ;als Line-Pitch stzen 





LD HL,FEEDBF ‚Adresse der ESC-Seqauenz 
JP LPTOUT iund ausgeben 


LSPC DEFB 28 ;Zetlenabstand in 1/216 inch 
‚>Escape-Sequenz fuer Line-Feed: ESC 'J' n (n/216") 


i 
FEEDBF DEFB 27,'J' ;ESC-Sequenz 


LPITCH DEFB ı ‚Default Line-Pitch = 1/216“ 
DEFB CRCDE ‚fuer Doppeldr. und Vergroesserung 


i 
;>Zeichen-Puffer 


; 
CBUFF DEFB 0 ;Puffer-Zaehler 
DEFS 255 ;Zeichen-Puffer 


’ 
;>Puffer fuer die Zeichenmatrix 


MTXBUF DEFS 8 
CWIDTH DEFB ı ;Flag fuer Zeichenbreite 


B 
‚>Routine zum Bearbeiten des Zeichens aufrufen 


i 
LDCHAR LD HL,(LODAODR) ;Adresse -> HL 


JPp (HL) siund ausfushren 
LDADR DEFW CFESC ;Speicherstelle fuer Eingangs-Adr. 
ESCSEQ DEFB O0 ;Flag fuer ESC-Boarbeitung 


‚>Pruofen, ob ESC-Sequenz bearbeitet werden sol und 
‚>entspr. Adresse setzen 








| Listing JOYPRINT 












ESCCHK 










NXTCHK INC 











JR 


ESCEND LD 
LD 
Lo 
SETAD PUSH 
SETADR POP 
LD 
ScF 
RET 
CBFULL LD 
CALL 
JR 
JR 





A,2 

A,E 
C,CcBFuLL 
HL,ESCSEO 
{HL),OFFH 
SETADR 
HL,ESCTAB 
8,(HL) 

HL 

(HL) 

HL 

E,(HL) 

HL 

D,CHL) 
Z,SETAD 
NXTCHK 
ESCEND 
CFCHR 


HL,ESCSEO 
(HL),O 
DE,CFESC 
DE 

HL 
(LDADR),HL 


C,SPCCDE 
LOCBUF 
Z,ESCEND 
CBFULL 


i>Zeichen vebernehmen, 


CFESC CP 
JR 
EFCHR LD 
LD 
ADD 
cp 
RET 
Lo 
LDd 
Lo 
ADD 
ADD 
ADD 


NXTBYT LD 


NXTBIT DEC 


LDPBUF LD 











GETMTX Dr 
Lo 
our 
LOIR 
Lo 
our 
EI 
RET 












PRINTL LO 
LD 
ADD 
ADD 
ADD 
LD 










Listing JOYPRINT 


A,ESCCDE 
Z,ESCCHK 
HL,BUFLEN 
A,{CWIDTH) 
A,{HL) 
A,MAXCHR 
Nc 

(HL),A 
H,17H 

L,c 

HL,HL 
HL,HL 
HL,HL 
DE,MTXBUF 
8C,0008H 
GETMTX 
A,(CSTYLE) 
A,k 
NZ,STYLE 
A,(CATTRI) 
A,A 
NZ,ATTRIB 
A,{CROT) 
A,A 
NZ,ROTATE 
A,(CSIZE) 
A,A 
NZ,SIZE 
DE, (PBADR) 
B,8 
HL,CWIDTH 
c,{HL) 
A,80H 

HL 

(HL) 


NC,NXTBIT 
(DE),A 

DE 

c 
NZ,LOPBUF 
NXTBYT 
(PBADR),DE 


‚>Zeichenmatrix holen 


A,BLOCK2 
(PRTaL2),A 


A,BLOCK6 
(PRTBL2),A 


L,A 
H,o 

HL,HL 
HL,HL 
HL,ML 
(PBLEN),HL 





ipruefen, ob noch Platz fuer 
‚kompletten ESC-String 

‚nein, Zeichen-Puffer {ist vo1] 
;ESC-Flag setzen 


‚Adr. fuer naechstes Zeichen setzen 
‚Adresse ESC-Tabelle -> HL 

;Laenge holen 

‚HL auf Eintrag 

Eintrag = Zeichen? 

Zeiger auf Adresse 

‚Adresse -> DE ausiesen 


;DE = Adresse ESC-Routine 

‚wenn gefunden, -> SETAD 

‚sonst naechsten Eintrag pruefen 
inicht gefunden, Adresse setzen 
‚normal ausgeben 


‚ESC-Flag auf O setzen 


;Default-Adresse setzen 
‚Adresse auf Stack setzen 
‚Adresse zuruecknoien 

‚und eintragen 

iCarry-Flag setzen 

‚dann zurueck 

;Zeichenpuffer mit Leerstellen 
sauffuellen 

iwenn vol], abbrechen 

‚sonst nochmal 


wenn Platz im Puffer 


;ESC-Code? 

‚ja, Adresse festlegen 

HL auf Anzah) Puffer-Eintraege 
iZeichenbreite -) A 

‚Anz. Eintraesge + Zeichenbreite 
‚Puffer vol]? 

;jJa, abbrechen 

‚sonst abspeichern 

‚Adresse Zeichenmatrix ausrechnen 


DE = Adresse Matrix-Puffer 
;8C = Anzah) Matrix-Bytes 
;Matrix holen 

;Schriftart pruefen 


iwenn noetig, umwandeln 
‚Ausgabe-Attribute pruefen 


‚wenn noetig, umwandeln 
Drehrichtung pruofen 


‚wenn noetig, drehen 
;‚Hoene pruefen 


‚wenn noetig, vergroessern 

;DE = Adresse naechster Eintrag 
;B = Anzah] Bytes 

;Zeichenbreite holen 

sung Breite -> C 

‚Kontrolibyte -> A 

;HL = Adresse Matrix-Byte 
‚Matrixbit -> CARRY 

iund => ACCU 

;bis Byte komplett 

‚Byte in Print-Puffer eintragen 
‚Adresse +1 

;Breite-Zaehler-ı 

‚nicht 0?, Byte nochma! eintragen 
‚evtl. naechstos Byte erzeugen 
Adresse naechster Eintrag sichern 
Carry-Flag setzen 

und zurueck 


;Interrupts aus 
;Speicherblock #2 
‚einblenden 

‚Matrix uebertragen 
;Speicherblock #6 
‚wieder einblenden 
;‚Interrupts ein 
und zurueck 


; 
‚?Print-Puffer an Drucker ausgeben 


Anzahl Eintraege = 8 


‚und {in ESC-Sequenz eintragen 
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CALL POUT ;‚Adressen berechnen und ausgeben 


LDd A,(DBLFLG) Flag fuer Doppeidruck holen 
OR A,A und pruefen 
CALL NZ,OB8LSTR sevt), nochmal drucken 
xXOR A,A A=0 
LD (BUFLEN),A ;Anzahl Puffer-Eintraege = O 
LDd HL,PBUFF ;HL = Adresse Print-Puffer 
LD (PBADOR),HL ;und als Startwert setzen 
Lo A,(CSIZE) ;Zeichen-Groesse holen 
OR A,A und pruefen 
RET zZ ‚abbrechen, wenn normal 
LDd HL,LINE iHL zeigt auf Zeilennummer 
INC (HL) ;Zeilennummer +1 
cp A,(HL) ;Zeilennummer = Groesse? 
JR Z,PREND ja, beenden 
LDd A,(DBLFLG) ;sonst Doppeldruck-Flag holen 
ADD A,24 ‚und Zeilenabstand berechnen 
Lo DE,0004 iLaenge der ESC-Seauenz 
CALL FEED iund LF ausfuehren 
Lo HL,CBUFF iHL auf Zeichen-Puffer 
LD B,{HL) iAnzah! Eintraege -> 8 
NXTLD INC HL ;Zeiger auf Eintrag 
Lo c,{Ht) Zeichen -> C 
Ld A,c und nach A 
PUSH HL isonst Zeiger und Zachler sichern 
PUSH BC 
CALL LDCHAR Zeichen bearbeiten 
POP BC ;Zaehler und Zeiger zurueck 
POP HL 
DJNZ NXTLD ;sonst naechstes Zeichen 
LD A,(BUFLEN) ;Anzahl Puffer-Eintraege holen 
JR PRINTL ‚dann Pufferinnalt drucken 
PREND LD (HL),O ;Zeilennummer = O0 
RET ‚und zurueck 


; 
i>Doppeldruck ausfuehren 


; 
OBLFLG DEFB 0 ;Flag fuer Doppeldruck 


DBLSTR LD A,l ;Line-Feed 1/216” 
LD DE,0004 ;Anzah) Zeichen der ESC-Sequenz 
CALL FEED iLF ausfuehren 
Lo HL,(PBLEN) ;Puffer-Laenge holen 
pour Lo DE,0004 ‚Anzahl Zeichen der ESC-Sequenz 
ADD HL,DE ‚zur Pufferlaenge addieren 
Ex DE,HL ;i=> DE 
LD HL,GRAFST ‚Adresse der £SC-Sequenz 
LPTOUT LD (CCBAOR),HL ;Adresse in CCB eintragen 
Lo (CCBLEN),DE ;String-Laenge in CCB eintragen 
LD DE,CCBADR ‚Adresse CCB -> DE 
Lo C,LSTBLK iBDOS-Funktion LIST BLOCK 
JP 8005 ‚und ausgeben 


’ 
;>Character-Controi-Block 


CCBADR 





DEFW O0 ‚Adresse 
CCBLEN DEFW 0 ;Laenge 
’ 
‚> ESCbn Zeichenbreite einstellen 
ESCWID LD HL,CWIDTH ;HL=eAdresse Breite-Byte 
cp A,21 ;maximale Breite pruefen 
JR C,WIDOK iwenn <= 20, d, preufen ob OÖ 
Lo A,20 isonst auf max. Broite setzen 
WIDOK OR A,A ;preuefen ob O0 
JR NZ,ESCOK inein, -> beenden 
INC A ;a=ı 
JR ESCOK und beenden 














4 1/0 Doppeidruck ein/aus 


‚> Umschaltung nur moeglich, wenn Puffer leer 


; 
ESCDOP LD A,(BUFLEN) ;pruefen, ob Zeichen im Puffer 












OR A,A 
JR NZ,ESCEN ;jJa, abbrechen 
LD A,c jsonst Zeichen wieder -> A 
AND A,l und STRIKE-Byte erzeugen 
NEG 
LD HL,DBLFLG ;HL auf Doppelgruck-Flag 
JR ESCOK sund beenden 
‚> ESCErn Drehrichtung fuer die Ausgabe festlegen 
; 
ESCROT LD HL,CROT ‚Adresse Richtungs-Flag 
AND A,3 ;Drehrichtung auf zul. Wert 


ESCOK idann beenden 









Zeichennoehe festlegen 
nur moeglich, wenn Puffer Icer 























SCSIZ LD A,(BUFLEN) ;pruefen ob Zeichen im Puffer 
OR A,A 
JR NZ,ESCEN ;jJa, abbrechen 
Lo HL,CSIZE ‚Adresse Groesse-Flag -> HL 
LDd A,cC Zeichen wieder -> A 
AND A,3 inoehe auf max. Wert sotzen 
RLCA ;und Groesse-Byte erzeugen 
cp A,5 
JR C,ESCOK ‚wenn 0..4, fertig 
ADD A,2 ;sonst +2 (=8) 


JR ESCOK sund fertig 
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‚> ESC 1 ı1/ 


ESCINV LD 
AND 
JR 






D 
> ESC u 1/ 





ESCUND LO 
RLA 
AND 
SATTRI LD 





‚> ESCsn 
ESCTYP CP 
JR 
Lo 
PUSH 
DEC 
LD 
JR 
LD 
Lo 
POP 
LD 
JR 


TYPOK 


OPFND 





’ 
ir ESC *'T" 


ESCLSP LO 
OR 
JR 
Lo 
Lo 
LD 
pP 


ESCOK 
ESCEN 


ESCTAB DEFB 
DEFB 
DEFW 
DEFB 
DEFW 
DEFB 
DEFW 
DEFB 
DEFW 
DEFB 
DEFW 
DEFB 
DEFW 
DEFB 
DEFW 
DEFB 
DEFW 
‚> Schrift 
STYLE LD 
LD 
LD 
SRL 
SLOGOP OR 
LD 
Inc 
DUNZ 
RET 


NSTYLE 


i 
> Zeichen 


ROTATE PUSH 


NXTBTE 


NXTROT 


INC 
DJNZ 
CALL 
POP 
DEC 
JR 
RET 


























Listing JOYPRINT 


0 : inverse Ausgabe ein/aus 


8,02 
A,0L 
SATTRI 


;Masko fuer UNDL-Bit 
‚INV-Bit isolieren 
;Attribute-Byte setzen 


0 : Unterstreichen ein/aus 


8,01 


A,02 

C,A 
HL,CATTRI 
A,(HL) 
A,B 

A,c 

ESCOR 


‚Maske fuer INV-Bit 
SUNDL-Bit erzeugen 

‚und isolieren 

‚Bir => C 

‚Adresse Attribute-Byte 
jAttribute-Byte -> ACCU 


;gew. Bit loeschen 
iund evt}. neu setzen 
‚fertig! 


Schrift-Type einstellen 


A,3 
C,TYPOK 
A,02 

AF 

A 

A,OA6H 
Z,OPFND 
A,OB6H 
(SLOGOP),A 
AF 
HL,CSTYLE 
ESCOK 


‚Senhrift-Type auf zul, 
iwenn O.k, -?TYPOK 
‚sonst auf max. Wert 
iType sichern 

;Log. Befen] fuer Verknuepfung 
jerzeugen (A = AND-Befen)) 

;jund wenn Type = |, abspeichern 
‚sonst A = OR-Befen] 

und abspeichern 

;Type zurueckholen 

;HL = Adresse Typen-Flag 

jund beenden 


wert 


n : Zeilenabstand einstellen (n/216") 


A,(BUFLEN) 
A,A 
NZ,ESCEN 
A,c 
HL,LSPC 
(HL),A 
ESCEND 


8 

'p' 
ESCWID 
’g' 
ESCDOP 
np 
ESCSIZ 
.(. 
ESCINV 
“2. 
ESCLSP 
OP 
ESCROT 
’g' 
ESCTYP 
"ur 
ESCUND 


einstellen 


HL,MTXBUF 
8,8 
A,(HL) 

A 

(HL) 
(HL),A 

HL 

NSTYLE 


drehen 


AF 
DE,(PBADR) 
8,8 
HL,MTXBUF 
A,080H 
(HL) 

HL 


NC,NXTROT 
(0E),A 

DE 

NXTBTE 
MVEMTX 

AF 

A 
NZ,ROTATE 


’ 
;> Zeichen entsprechend 


ipruefen ob Daten im Puffer 


;ja, abbrechen 

‚sonst Wert wieder -> A 
;HL auf Line-Space-Byte 
‚Byte abspeichern 

;jund beenden 


; 
i> ESC-Tabelle, enthaelt die den Codes entspr. Adressen 


;Anzah) 
sESC b 
;Zeichenbreite einstellen 
;ESC d 

;‚Doppeldruck ein/aus 

;ESC h 

‚Zeichenhoehe einstellen 
sESC 1 

iiverse Ausgabe ein/aus 
;ESC 1 

;Zeilenabstand einstellen 
;ESC r 

;Ausgaberichtung einstellen 
;ESC = 

;Schrifttype einstellen 
‚ESC u 

iUnterstreichen oin/aus 


der Eintraege 


;StartadresseMatrix-P-Buffer 
;Anzahl Bytes zum aendern 
;Matrix-Byte holen 

;Byte nach rechts schieben 
jmit Matrix-Byte verknuepfen 
und wieder abspeichern 
;Zeiger af naochstes Byte 
‚und ebenfalls aendern 
;danach zurueck 


;Dren-Zaehler sichern 

;DE = Adresse PRINT-Puffer 
;8B = Byte-Zaehler 

;HL = Adresse Matrix-Puffer 
iA = Zaohl-Byte 

‚Bit aus Puffer -> Carry 
;Zeiger +1 

‚Bit -»> A 

und naechstes Bit holen 
‚Byte sichern 

‚Zeiger erhoehen 

;und naechstes Byte holen 
Matrix wider -> Matrix-Puffer 
;Drehrichtung holen 
;nochma) drehen? 

‚Ja, -> ROTATE 

‚sonst zurueck 


der Groesse einstellen 








NLDCHR PUSH BC 


Lo DE,MTXBUF 
LD 8C,0008 

LOIR juebertragen 
RET ‚und zurueck 


Listing JOYPRINT 
















HL,LINE ‚HL auf aktuelle Zeile 

Lo DE,{PBADR) ;DE = Adresse Print-Puffer 

Lo C,(cHL) ;Zeilennummer holen 

LD HL,MTXBUF ;HL auf Matrix-Puffer 

Lo 8,1 ;‚Durchlauf-Zaehler = ı 

cp A,8 Groesse = #8? 

JR Z,SFND ‚Ja, -> SFNO 

SsLA c ‚sonst Zeile »2 

Lo 8,2 ‚Durchlaufzaehier = 2 

cp A,s ‚Groesse = »4? 

JR Z,SFND ‚Ja, -> SFND 

SLA cC isonst Zeile «2 

LD 8,4 ‚und Durchlaufzaenler = 4 
SFND PUSH BC ;Zaehler sichern 

LD 8,0 i8C = Zetilenoffset 

ADD HL,BC ‚Offset zur Startadr., addieren 

POP BC ;Durchlaufzaehler 

Lo c,8 iund -> C 

LD 8,A Groesse -> 8 (Bytezaehler) 


‚Zaehler sichern 
;Matrixbyte holen 


SLOCHR LD (DE),A ‚und entspr. der Groesse {in 
INC DE ;Print-Puffer eintragen 
DJNZ SLOCHR 
POP Bc ;Zaahler zurueckhoien 
INC HL ‚Zeiger auf naechstes Byte 
DEC cC ;Durchlaufzaenier -ı 
JR NZ,NLODCHR ‚und naochstes Byte eintragen 
MVEMTX LO HL,(PBADR) ;dann aus Print-Puffer 


‚in Matrix-Puffer 


‚>Zeichen entsprechend dem Attribute-Byte umwandeln 






ATTRIB LD 
0,H 
E,L 


Nc 


HL,DE 







A,A 
{HL),A 







INVERS 8,8 
c,A 
A,{HL) 







holen NXTINV 







(HL),A 
HL 
NXTINV 
A,c 









; 
‚> Data-Area 






CSTYLE DEFB 

CROT DEFB 

CSIZE DEFB 
CATTRI DEFB 

LINE DEFB 

PBADR DEFW PBUFF 
BUFLEN DEFB 0 















PaLEN 
PBUFF 


DEFW © 
DEFS MBLEN 


END 


Listing JOYPRINT 


CHaRakter-CHAnger 


Verändern Sie die Zeichenmatrix 
direkt unter CP/M Plus 


CHaRakter-CHAnger dient als schnel- 
les Werkzeug, direkt auf der Betriebs- 
systemebene “mal eben schnell“ ein 
Zeichen zu verändern. Warum soll 
man denn immer erst BASIC laden? 


Mit 252 Bytes ist das Programm kurz 
und handlich, dennoch verfügt es über 
eine komfortable Eingabemöglichkeit 
und Ergebniskontrolle. Allerdings ak- 
zeptiert es nur Eingaben in hexadezi- 
maler Form. 


Zeichen verändern? 


Alles schön und gut, aber wie können 
Zeichen verändert werden? Wie 
kommt man auf die Werte, die einge- 
tragen werden müssen, um ein Zeichen 
umzudefinieren ? 


Am Anfang sollten Sie sich einen Zet- 
tel (Kästchenpapier) besorgen, auf dem 
Sie ein Feld von acht mal acht Kästchen 
einkreisen. Die einzelnen Kästchen, 
die zum Erstellen dieses Zeichens aus- 


gefüllt werden müssen, malen Sie nun 
aus (siehe auch Abb.1). Als nächstes 
folgt die Berechnung der Werte für 
jede Zeile. Dabei hilft Ihnen das kleine 
Hilfsprogramm MATRIX.BAS. Für 
jede belegte Stelle der gezeichneten 
Matrix geben Sie hier eine Eins und für 
Jede unbelegte eine Null ein. 


HL,MTXBUF 


C,INVERS 


HL,0007 


GRAFST DEFB ESCCDE, 'L‘ 





‚Adresse Matrix-Puffer 
‚nach DE kopieren 


sINV-Bit -> Carry 
‚und invers setzen 

UNDL-Bit -> Carry 

‚nicht unterstreichen?, zurueck 
‚Byte-Offset 

‚zur Adresse addieren 

;INV-Bit wieder -> Carry 

iCY invertieren 

iwenn INV-Bit =1, d, A=00 
iUnderline-Byte setzen 

‚und zurueck 

;Byte-Count 

;‚Attribute-Byte sichern 
‚Matrix-Byte holen 

iinvertieren 

‚und zurueck 

iZeiger +1 

‚naechstos Byte invertieren 
sAttribute-Byte -> A 

‚und zurusck 


‚Schrift-Type 

;Drehrichtung fuer Ausgabe-Zeichen 
Zeichengroesse 

;Ausgabe-Attribute 

;Zeilennummer 

‚Default fuer Print-Puffer-Adr, 
;Zaehler fuer Puffer-Eintraege 
‚Escape-Sequenz fuer Grafik-Modus 
;Pufferiaenge 

;Print-Puffer 


Das Programm errechnet nun die Wer- 
te, die CHRCHA benötigt und gibt die- 
se in dezimaler und hexadezimaler 
Form aus. Abbildung 1 verdeutlicht 
genauer, wie diese Berechnung funk- 
tioniert. 


Das Programm 


Sie geben das zu ändernde Zeichen 
oder besser dessen Nummer ein (von 
00 bis FF), welche Sie dem Joyce-Be- 
nutzerhandbuch 1, Anhang 1, entneh- 
men können und zusätzlich die acht By- 
tes, die dessen Aussehen definieren. 


Folgende Steuercodes werden für die Auswahl der Druckfunktionen von JOYPRINT benutzt. 


—-ESCbn: stellt die Breite der Schriftzeichen ein. (n = 1.. 20) 


—-ESChn: 
—ESCsn: 
-ESCrn: 


stellt die Höhe der Schriftzeichen ein. (n=0..3) 
wählt die Schriftart aus -> normal (n=0), dünn (n= l) und fett (n=2) 
wählt die Ausgaberichtung aus -> normal 0° (n=0), 90° gedreht (n=1), 


180° gedreht (n=2), 270° gedreht (n=3). 


- ESCIn: 
-ESCdl: 
—-ESCd0: 
-ESCi11: 
- ESCi0: 
-ESCu1: 
-ESCu0 


schaltet inverse Ausgabe aus. 


stellt den Zeilenabstand auf n/216* ein. (n = 1... 255) 
schaltet den Doppeldruck-Modus ein. 
schaltet den Doppeldruck-Modus aus. 


schaltet inverse Ausgabe ein, d.h. Schrift- und Hintergrundfarbe werden vertauscht. 


schaltet den Unterstreichungs-Modus ein. 
schaltet den Unterstreichungs-Modus aus. 
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Dann werden diese acht Bytes in die 
Zeichenmatrix geboxt. Diesmal aber 
nicht mit Speicherbank-Umschaltung 


lerdings diesen Bereich ohne weiteres 
belegen, da dort während der Aktivität 
von CHRCHA.COM nichts weiter 


Dieses Programm ist in Assembler ge- 
schrieben. Nach dem Eingeben in einen 
Texteditor, wie zum Beispiel RPED von 


über die beliebte XBIOS-Funktion 
Nr. 35, sondern schlicht und kurz 
durch entsprechende OUT-Befehle. 
Danach wird Ihnen angezeigt, wie das 
Zeichen jetzt aussieht. 


Natürlich kann man dieses Programm 
auch als Modul in ein größeres COM- 
File einbauen. Dann muß man aller- 
dings darauf achten, daß der Charac- 
ter-Changer nicht in den Bereich 800 
bis BFFF gerät, weil es sich sonst 
selbst den Boden unter den Füßen weg- 
zieht. Das gesamte COM-File kann al- 


der Systemdiskette, Seite 2, sollte es unter 
dem Namen CHRCHA.ASM abgespeichert 
werden. 

Nun kann es mittels des ZMAC-Assembler 
aus der Public Domain (Kotulla) durch 
ZMAC CHRCHA=CHRCHA X<RE- 
TURN> und 

ZLINK CHRCHA = CHRCHA in ein lauffä- 
higes COMmando-Programm umgewan- 
delt werden. 

Für diejenigen, die nicht im Besitz dieses 
Assemblers sind, steht selbstverständlich 
auf der Databoxdiskette das fertige COM- 
mando-Programm zur Verfügung. 


passiert. 
(Horst Buchholz/rs) 





; Quelltext CHRCHA,ASM/.PRN zu CHRCHA,COM 
i mit 2-80 Public-Domain Assembler 
; ZMAC/ZLINK (Vertrieb Kotulla) 


; geschrieben von Horst Buchholz $' 
; 18.1.1989 


rica 
rica 
push af 


; weil Zehnersteile 


; 10-er sichern 


call asciiin ; Input l-er-Stelle 


pop bc 
add a,b 


jr start 
titel: ob ' 


start! 1d de,string! 
call stringex 
Id de,string2 
call stringex 


cal! bytein 
push af 

Id 1,a 

id h,o 

add hi,n] 
add n!,n) 
add n\,n] 

Id de,0b800n 
add hi,de 
push h] 


19 de,string3 
cal] stringex 
Id de,strings 
cal) stringex 


Id a,8 

Id nl,tabelle 
dec a 

push af 

push hl 

cal) bytein 
pop h) 

Id (h}),a 

ine h) 

pop af 

ep o 

ir nz,loop 

gi 

id a,82n 

out (Of2h),a 
Id nl,tabelle 
pop de 

1d be,8 


CHRCHA,COM by 


’ 


Buchholz 1.89 $' 


; Minweistext 1 


KHinweistext 2 


; Eingabe Zeichen-Nr, 
; sichern bis Zeile 58 


; Zeichen-Nr. in HL 


; = 8, da 8 Bytes 

; Anfang Zeichenmatrix 
; Adresse Zeichen- 

i anfang sichern 


; Hinweistext 3 


; Hinweistext 4 


i Schleifenzacehler 


i Speicher fuer 8 Bytes 


; = 1 je Durchlauf 


; Wert sichern bis ' 
i Wert sichern bis 


x' 
ıyt 


i Eingabe 5 Bytes 


'y' = In Adresse HL 


; naemlich Tabelle 
i Vektor HL + 1 


'xX' = Zaehlwert 


i schon B-mal ? 
;i wenn nein, nochmal 


; Adresse 8000-8FFF 
; Screen-Bank 

; Quelle 

;i Ziel ab 8800 

; 8 Bytes 


push af 
Id @e,20h 
19 c,2 
cal} 0005 
pop af 
ret 


; 
asciiin: Id c,i1 
cal! 0005 
cal} hexok 
cp Offh 
jr z,asciiin 
ret 
cp 67h 
JP P,wrong 
ep 60h 
jp p,lower 
cp 47h 
jp p,wrong 
ep 40n 
jJp p,upper 
cp 
Jp 
ep 
Jp 
; 
Id 
1d 
cal! 0005 
Id @,8 
Id c,2 
cal 0005 
Id »,0ffh 
ret 
lower: sub 20n 
upper: sub 7h 


chiffre: sub 30n 
ret 


; 10-er nolen 

; zu l-er addieren 

i vor BDOS #8 2 retten 
i 8008 ® 2 (Space) 


; Eingabe-Byte !n A 


; 8005 ® ı 
i NHexa-Zanı ? 
; als falsch erkannt ? 
i dann nochma! 
'9’° oder menr ? 
‘a’ bis !t' ? 
"G' oder mehr ? 
"Br BIER :r 


en , 


i BEEP 


i BACKSPACE 


i Fehler-Kennung 


s a-f wird A-F 
; A-F wird 10-16 
; ASC1I wird Wort 0-F 


; SPEICHERBEREICHE 


Idir ; kopieren 


tabelle; 4b 00,00,00,00,00,00,00,00 
Id a,86h i Adresse 8000-BFFF 


stringl: db Oan,Oan,Odn,' =-- ZEICHENAENDERUNG ---$' 


out (Of2n),a 
“ 

i 

Id de,stringS 
cal] stringex 
pop af 

Id e,a 

14 €,2 

ca! 0005 

1d de,string6 
cal] stringex 


call 0000 


; UNTERPROGRAMME 


stringex: 1d c,9 

cal! 0005 
ret 

; 

call asciiin 


rica 
rica 


bytein: 


Listing CHRCHA 
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i wieder TPA (Bank 1) 


i Hinweistoxt 5 


; Zeichen-Nr. holen 

i neu gestaltetes 

ı Zeichen mit BDOS #s 2 
i anzeigen 

i 2 Leerzeilen 


; ENDE 


; BDOS 8 9 


; Inpur 10-er-Stelle 


i 4=mal RLCA 


string2! db Oanh,Oan,Odh, "Bitte Hexa-Nr des Zeichens 


string3: 0b Dan,Dan,Odn, ı 2 
string&: ob Oan,Oah,Odh, 'B Bytes = $' 


string: db Oah,Oan,Odh, "So sieht es jetzt aus 


string6: db Oan,Oan,Odh, ’$' 


LISTING >MATRIX <, REMARK = > &. 
«86> FOR zeile=1 TO 8 


«53> PRINT"Bitte Matrix der Zeile "zeila"eingeben : 
<46> INPUT "",a$(zeiie):IF LEN(a$(zeile))<>8 THEN 20 


<27> NEXT zeile 
FOR zeiie=si TO 8 
RESTORE 130 
alle=0 
FOR 


a=1 TO 8 
READ b:IF MID$(a$(zeile),a,i)="1" THEN alla-all 


or 

100 NEXT a 

110 PRINT "Die Summe der "zeile;" 
z.";alle;"umgerechnet hex. &"HEXS(a 
120 NEXT zeile 

130 DATA 128,64,32,16,8,4,2,1 


le 


Listing CHRCHA 





a ne ergibt De 


DYUPTILPALKARLION ° DSUPEerpack-Aktıion 


Ja, ich bestelle aus Ihrer Zeitschriften-Aktion folgende Produkte 


[] Best.-Nr. 33 CPC-Superpack 
4x CPC Sonderhefte der Ausgaben 1/86 + 3/87-5/88 für nur 


[] Best.-Nr. 34 Joyce-Sonderheft-Superpack 
2 x Joyce-Sonderhefte der Ausgaben 2/87-3/88 für nur 


[] Best.-Nr. 35 PC-Amstrad-Superpack 
12 x PC-Amstrad/Schneider der Ausgaben 1/87-12/87 
3 Ausgaben PC International (7/86 — 12/86) 


2 praktische Sammelordner für nur 50, (DM 
(nur solange Vorrat reicht) 
Demodisketten: 
U Best.-Nr. 002 Corilfext PC 5,- DM U] Best.-Nr. 003 ERGO 5,- DM 
U) Best.-Nr. 005 Cornfext PRO 5,- DM [ Best.-Nr. 001 Fraktal-3D + MaskEdit 5,- DM 
U] Best.-Nr. 006 TOOLBOX-Spezial 5,- DM 
D Einen Verrechnungsscheck in Höho des Rechnungsbotrages 
habe ich beigefügt. Gesamtbetrag DM 





| Ich bitte um Lieferung per Nachnahme, zuzügl der Nachnah- 
megebühr (nur innerhalb der BRD) 


30,— om 
20,— ou 





Datum 


Unterschrit (bei Minderjährigen des gesetzlichen Vertroters) 

















PC-Bestellservice 
Hiermit mache ich von Ihrem Angebot Gebrauch und bestelle: 

SOFTWARE SOFTWARE 

5a | 3 %/2* DM 5a“ | 3 Na“ DM 
228 DI 23H CL Corifext PC, (MS-DOS) 99, - 6009 | 6010 1! DOS-Tools 5, aw.nac-toomon -Obertächee 69, - 
2407 | 24098 U Corifext PRO, (MS-DOS) 199, - son | 6012 [| DOS-Tools 6, anna Reiter -DOS-Funktonen- 69, - 
209 U| 210 C Upgrade - Confext PRO 129, - 6013 LI| 6078 [)| DOS-Tools 7, aw-Hasie-tooten »Merciten-Cralike 69,- 
245 0) At U Corlext-ADREWA, Adreßverwaltung 49,- 2801 \1| 2802 (1| TOOLBOX Spezilall, Turbo Prolog 35, - 
28 DI 239 I ConFont, Zeichensatzeditor 9,- 2804 | 2805 (| TOOLBOX Spezialill, PASCOMP 35,- 
24 Ol 283 Lt CGX-Toolbox, Version 1.2 49,- 2806 \)| 2807 | TOOLBOX Spezial lll, Echtzeit 35, - 
2615 [| 2616 0) H.A.l.- Tech, (MS-DOS) 199, - 2608 || 2809 | TOOLBOX Spezial IV, CALC 35,- 
22 0] 28 D ERGO, Bonutzeroberfläche (MS-DOS) 149, - zaı | 2812 (| TOOLBOX Spezial V, STRUKTO 35,- 
239 0 25 0 Hyporkey, Version 40, (MS-DOS) 9,- 2813 | 2814 | TOOLBOX Spezial VI, TPs/S-Spieie 35,- 
2601 | 2602 U Update - Hyperkey, Vorsion 40 29,- 2815 | 2816 || TOOLBOX Spezial VII, dt. Sübentrennung 35,- 
2617 (| 2618 FontEdit ll, (MS-DOS) 149, - 2817 || 2818 |) TOOLBOX Spezial VIll, Spieltheorie 35,- 
26093 U 2604 U Update FontEdit ii 59,- 2819 [| 2820 TOOLBOX Spezial IX, HPGL-Piotter 35,- 
20 DI 2 D DMV-Font 1, Voktorzeichensätze ,- 2821 \)| 2922 (1) TOOLBOX Spezial X, CRC-Sicherung 35,- 
2565 TI 237 D VirusDoktor, (MS-DOS) 9,- 2823 [| 2824 [| TOOLBOX Spezial XI, mar manx a merease 35,- 
238 239 [ MaskEdit Pius I, (Turbo Pascal 44/5) 9,- 2827 2828 [| TOOLBOX Spezial XIll, TOOLBOX Tickuste \ol] 35, - 
261 U) 262 0 MaskEdit Pius Il, (Turbo C, Microsoft C) 99,- 2831 1) 2832 (1) TOOLBOX Spezial XV, Fitting & Lin.-Glei._ 35,- 
2619 [| 2620 0 MaskEdit Plus Ill, (TopSpoed Modula-2) 99,- 235 | 297° | MAUSALL, (MS-DOS) 29.9 
263 | 24 0 MaskEdit Plus, Paket | + Il 149, - 246 | #7 0 C-Funktionssammlung 99,- 
227 I 239 BCi DisAsm/iß8, (MS-DOS) 199, - 2952 1) - GEMinterface PC, Turbo Pascal 4 + 50 198, - 
2402 2| 2401 U TopSpeed Modula-2, Compilor 348,- 2953 | GEMinterface PC, Logitech Moduta-2 249, - 
244 2] 24063 0 TopSpeed Modula-2, Techkit 248, - 2954 GEMinterface PC, TopSpeed Modula-2 198, - 
2406 | 2405 0 TopSpeed Modula-2, Debugger 248, - 3 U] 185 0] PC-Spielebox No.1 49,- 
242 | ut 0 Paket Compiler + Debugger 555,- 1291 1292 || PC-Spielebox No.2 49,- 
43 N Wr 0 TopSpeed Modula-2, OS-Version 698, - 161 | 162 [| KNOW-PC, Unterhaltungsspiel 49,- 
500: 11] 8002 LI | DOS-Tools 1, RSM-Manager 69, - 1293 0] 129 [1] Ergänzungsfragen zu KNOW-PC 29,- 
6003 DI 604 DOS-Tools 2, PC-Utiities 69,- 186 | 187° 1} Underground, Aktionsspiel 49,- 
6005 | 6006 DI DOS-Tools 3, MS-DOS-Utilitios 49,- 225 | 291 (| Fraktal-Generator 2D, MS-DOS 49,- 
boor UI! ‚6008. DI DOS-Tools 4, 3D-Draw 9,- 248 U 249 U)! Fraktal-Generator 3D, MS-DOS 69,- 
+ Porto/Verpackun 

Inland 4,— DM, Ausland &— DM) nee Gesamtbetrag 


»Kleinanzeigen-Markt« 


Private Anzeigen: Nur DM 5,— je angefangene Zeile 
Geschäftliche Empfehlungen: DM 8 -— 
Kreuzen Sıe bitte an, in welche Rubrık (s. Kart E 
ein Zeichen; Buchstabe, Satzzeichen oder Wortzwischenraum) 

Achtung! Der Abdruck ertolgt nur gegen Vorkasse (Verrechnungsscheck) 





elangene Zeile, zzg). gesetzlicher Met 
e Anzeige gehört, schreiben Sie Ihren Tex 


Bitte veröffentlichen Sie meine Anzeige ın der nächsterreichbaren »PC International« für 


private Zwecke 


Das ıst der Text (Bitte deutlich in Druckbuchstaben schreiben!) 


| 








| | SE | 
| | | 





















































U Die Anzeige soll als Chiffre-Anzeige erscheinen (nur möglich beı Privat-Anzeıge) 


Chiffre-Gebühr 10,- DM zzgl. zum Anzeigenpreis 
In dieser Rubrik 





»JOYCE-Bestellservice« 
Knüller für JOYCE-Fans 



































indie Karte jedes Kästchen = 


gewerbliche Zwecke (gewerbliche Anzeigen werden mit G gekennzeichnet) 














Unterschrift (bei Minderjährigen ces oosetzlichen Voerreters) 


Biete an Suche Tausch | Stellenmarkti/freie Mitarbeit 
| | Hardware Härdware | Geschäftsverbindungen 
\ Software Software | Verschiedenes 
ae achieanden Datum Unterschriltt (bei Minderjährigen dos gesetzl Vertrotors) 
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Stck. Databox-Diskette Nr. 2 zum JOYCE SH 2 


Stck. JOYCE Programmsammlung Vol. 2 
Sick. JOYCE Programmsammlung Vol. 3 
Stck. JOYCE Programmsammlung Vol. 4 


Stck. Databox zum JOYCE SH 1 
_— Stck. Databox-Diskette Nr. 1 zum JOYCE SH 2 


——— Steck. Databox-Diskette Nr. 2 zum JOYCE SH 3 
362 _—__ Stck. Kombipack, Disk 1 + 2zum JOYCESH3 48,- DM 


Stck. Sonderheft JOYCE Nr. 4 
3671 ____ Steck. Databox-Diskette Nr. 1 zum JOYCE SH 4 


3672 ____ Stck. Databox-Diskette Nr. 2 zum JOYCE SH 4 


3673 























Ich mache von Ihrem Angebot Gebrauch und bestelle hiermit: 
360 ____ Stck. Databox-Diskette Nr. 1 zum JOYCE SH 3 


215 _____ Stck. JOYCE Programmsammlung Vol. 1 


303 
304 
305 
306 
361 
367 
216 
217 
219 


Stck. JOYCE Programmsammlung Vol. 5 


220 


1 Stck. JOYCE Programmsammlung Vol. 6 


22 
<< 


+ Porto/Verpackung 
(Inland 4,— DM, Ausland 6,- DM) 


Gesamtbetrag 


Den Betrag bezahle ich mittels des bei 


schecks, 


Ich bitte um Lieferung per Nachnahme zuzüglich der Nachnahme- 
(Bei Lieferung ins Ausland ist Nachnahme nicht möglich.) 


gebühr. 





Datum 
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dB-ASSI 


Eine Benutzeroberfläche für dBase 


Eine Anzeige der dBASE-Befehle durch Menüs am Bildschirm, wie 
sie von dBASE III Plus her bekannt ist, läßt sich jetzt auch bei 
dBASE II realisieren: Indem man zusätzlich zur dBASE-II-System- 
software das Programm dB-ASSI lädt. 


’dB-ASSI’ wurde für den JOYCE 
PCW 8256 maßgeschneidert, läuft je- 
doch auch auf dem Amstrad CPC. Die 
dB-ASSI-Dateien sind so bemessen, 
daß sie sich zusammen mit CP/M und 
den dBASE-II-Systemdateien gerade 
noch auf eine Diskette kopieren lassen, 
die dann als Startdiskette eingesetzt 
werden kann. Beim Anlaufvorgang 
werden diese Dateien auf die RAM- 
Disk geladen, die anschließend fast bis 
zum letzten Byte belegt ist. Für An- 
wenderdateien steht eine zweite Dis- 
kette mit ihrer gesamten Speicherkapa- 
zität zur Verfügung. 


Der Vorteil des JOYCE PCW 8512 be- 
steht darin, daß damit auch Anwender- 
dateien auf die RAM-Disk geladen 
werden können. Dadurch wird das Ko- 
pieren von Dateien mit dB-ASSI er- 
möglicht. 

Größere Nachteile müssen CPC 
6128-Besitzer in Kauf nehmen: Wegen 
der fehlenden RAM-Disk muß wäh- 
rend der Bearbeitung eine Zugriffs- 
möglichkeit bestimmter Systemdateien 
auf der Diskette vorhanden sein. Diese 
Systemdateien müssen deshalb zusam- 
men mit den Anwenderdateien auf ei- 
ner Diskette abgespeichert werden. 
Selbst bei Auslagerung aller übrigen 
Systemdateien auf einer zweiten Dis- 
kette bleibt dadurch für Anwenderda- 
teien lediglich ein Speicherplatz von 
etwa 60 kByte. Der zweite Nachteil, 
der sich bei Verwendung des CPC 
6128 ergibt, ist die Wartezeit von etwa 
zwei Sekunden nach einer Befehlsein- 
gabe. Verursacht wird diese Wartezeit 
durch die Zugriffszeit auf das Disket- 
tenlaufwerk. 


Arbeiten mit dB-ASSI 


'dB-ASSI’ besteht aus neun Dateien, 
die in dBASE II erstellt wurden. Die 


Hauptdatei ASSI.CMD, die von der 
Startdiskette automatisch aufgerufen 
wird, führt verschiedene Voreinstel- 
lungen durch und zeigt das Hauptmenü 
an. 

Durch Eintippen eines der eingeklam- 
merten Anfangsbuchstaben wird das 
gewünschte Unterprogramm aufgeru- 
fen, dessen einzelne Befehle wieder am 
Bildschirm angezeigt werden. 


Das folgende Beispiel zeigt eine typi- 
sche Anwendung für das Programm 
dB-ASSI. 


Aufgabenstellung: Die Datensätze der 
dBASE-Datei VIDEO.DBF sollen 
nach Filmtiteln sortiert werden. 


l. Bearbeitungsschritt: Anwahl der 
Datenbank 


Nach Eingabe von A<Ret> erscheint 
das Untermenü AUSWAHL. 


Mit D<Ret> wird (D)atenbank ange- 
wählt. Auf die anschließende Abfrage 
des Dateinamens erfolgt die Eingabe 
von A:VIDEO<Ret>. Durch wieder- 
holtes Drücken der Return-Taste kehrt 
man zum Hauptmenü zurück. 


Während der Einarbeitungsphase kann 
es leicht vorkommen, daß die Anwahl 
der Datenbank vergessen wird. Eine 
Fehlermeldung weist jedoch auf den 
vergessenen Bearbeitungsschritt hin. 


2. Bearbeitungsschritt: Anlegen der In- 
dexdatei, die nach Filmtiteln sortiert ist 
Dazu wird im Menü ORGANISA- 
TION der Befehl (Dndex aufgerufen. 
Nach Eingabe des zu sortierenden 
Schlüsselfeldes und des INDEX-Datei- 
namens wird wieder das Hauptmenü 
aufgerufen. 


3. Bearbeitungsschritt: Auflisten der 
Datensätze 

Das EXTRACT-Menü bietet dafür die 
Wahl zwischen (L)ist und (D)isplay. 


dBASE 





In den meisten Fällen wird man sich für 
den etwas komfortableren Befehl DIS- 
PLAY entscheiden. 


Nach Eingabe von <D> bzw. <L> 
kann der Anwender bestimmen, ob die 
sortierte Liste nur am Bildschirm oder 
auch am Drucker ausgegeben werden 
soll. 


Beurteilung 


Trotz der Menüführung und der sehr 
einfachen Bedienung wird dringend 
empfohlen, erst mit Hilfe kleinerer 
Test-Datenbanken das Handling von 
dB-ASSI zu üben, bevor eine größere 
Datenbank angelegt wird. 


Folgende Probleme sollte der Anwen- 
der kennen: 


Die Struktur einer Datenbank muß be- 
reits vor der Eingabe der Datensätze 
genau festgelegt werden. Einen einfa- 
chen Befehl zur nachträglichen Struk- 
turänderung ohne Datenverlust enthält 
das Programm dB-ASSI nicht. 


Die Gefahr eines Datenverlustes be- 
steht, wenn nach der Abfrage des Da- 
teinamens die Laufwerkbezeichnung 
vergessen wird, denn das voreinge- 
stellte Laufwerk ist beim JOYCE die 
RAM-Disk. 

Trotzdem kann das Programm vor al- 
lem weniger erfahrenen dBASE-An- 
wendern sehr empfohlen werden, da 
die Datenbankbearbeitung auf spieleri- 
sche Art am PCW erlernt werden kann 
und das Nachblättern der gesuchten 
Befehle im Handbuch während der Be- 
arbeitung entfällt. 


Die Anzeige der ursprünglichen 
dBASE-Befehle in den Untermenüs un- 
terstützt außerdem das Erlernen von 
dBASE. 


(Michael Gänslen/rs) 
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Hochwertige Software zu Niedrigpreisen finden JOYCE-Besitzer im Rahmen einer 
Programmsammlung in der Angebotspalette des DMV Verlages. 
Jede Ausgabe aus dieser Reihe enthält eines oder zwei Programme, die aus verschiedenen 


Anwendungsgebieten kommen. Diese Serie erscheint in unregelmäßiger Reihenfolge und wird als kom- 
plettes Programmpaket mit 3“-Diskette und Bedienungsanleitung ausgeliefert. 
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Leistungsumfang: 

Auf der mitgelieferten Diskette finden Sie alle zur Erstellung 
eine Startdiskette nötigen Programme und Dateien. Die Be- 
dienungsanleitung enthält eine ausführliche Erklärung aller 
Funktionen. 


Funktionen: 

— kurze Einarbeitungszeit, da eine einfache und übersicht- 
liche Menüführung Fehleingaben abfängt oder gar nicht 
erst zuläßt 


— schnelles Arbeiten durch Belegung der Funktionstasten 
mit den wichtigsten Funktionen 


— auf Wunsch wird die Formel des aktuellen Feldes am un- 
teren Rand eingeblendet 


— besonders schnelle Bearbeitung von Eingaben und Be- 
rechnungen 
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Die wichtigsten Leistungen von Vol. V auf einen Blick: 

- Generiert Standard-Direktzugriffsdateien (BASIC), die auch in Eigenprogram- 
me eingebunden werden können. 

— Vollautomatisch generierte Maske zur Datenerfassung, Datenänderung und 
Datenlöschung 

- Reservierung des nötigen Speicherplatzes auf der Diskette, mit automatischer 
Erweiterung bei Erreichen der Reservierungsgrenze, 

- Gelöschte Datensätze werden vorrangig noubelegt, bevor weitere Sätze ver- 
braucht werden, 

Auf Wunsch Datentransfer aus vorhandenen in neuangelegte Dateien 

—- Automatische Eintragung neuer Dateien in das Disketten-Hauptmenü 

— Alle Programme werden auf der RAM-Floppy gehalten. 

— Listenerstellung (Drucker oder Bildschirm) mit automatischer Spal- 
tenformatierung. 

- Daten können selektiert (ausgewählt, ausgeschlossen) werden. 

— Auf Wunsch Summen numerischer Spalten. 

— Freie Wahl der Sortierung: Mehrfachsortierkriterien. 





Die universell einsetzbare 
Tabellenkalkulation zum Erstellen B-—mır 
von Monatsbilanzen, T-Konien 
etc. für die PCW(JOYCE)-Familie 


Das maßgeschneiderte 
DATENBANKSYSTEM für die 
PCW(JOYCE)-Familie 
(PCW 8256, PCW 8512, PCW 9512**) 


Max. 27 Felder pro Datensatz, 50 Stellen 
pro Feld, 35.000 Sätze pro Datei, mini- 
maler Disketten-Speicherbedarf! 


Brpaminse der wermungmen Perinde fin Bin BD 
Nonsnmmmeeerraaunas nennen nun 





— arbeitet vollständig auf dem Memory-Laufwerk, was 
Schreib-/Leseoperationen wesentlich beschleunigt 


— bis zu 68 Zeichen pro Formel möglich 

— eigene Befehle zur Verkürzung der Formeln 
—- drei verschiedene Schriftarten beim Drucken 
—- standardmäßig 2574 frei belegbare Felder 

— akzeptiert sogar Exponentenschreibweise 


Joyce Programmsammlung Vol. VI TABKALK für alle JOYCE 
(PCW's) braucht den Vergleich mit vielen teureren Program- 
men nicht zu scheuen. 


Joyce Programmsammlung Vol. VI für alle JOYCE PCW’s 


Best.-Nr.:221 3"-Diskette 


unverbindliche Preisempfehlung 








- Ohne Lernaufwand SOFORT voll anwendbar, keine Befehlswörter. 


- Nach 1-2 Minuten können Sie bereits über eine komfortable Maske Daten er- 
fassen. 


— Druckmasken für die beliebig sortierte Datenauflistung am Bildschirm oder am 
Drucker brauchen Sie nicht erst mühselig zu programmieren, sie werden vol- 
lautomatisch für beliebige Datenfelder und Spaltenfolgen generiert. 


- ae mehrseitigen Auflistungen am Bildschirm Direktsprung zu jeder beliebigen 
eite 


— Einmal gewählte Druckparameter werden auf Wunsch gespeichert, die ent- 
sprechenden Listen können jederzeit abgerufen werden 


Sofort Ergebnisse statt (frustrierender) Erlebnisse! 


VOL. V für Joyce/PCW 8256/8512/9512** mit ausführlicher 
Bedienungsanleitung 


Best.-Nr: 220 3“-Diskette 
** PCW 9512 auf Anfrage 


unverbindliche Preisempfehlung 


Bitte benutzen Sie die Bestellkarte. 


| " Unabhängig von der Anzahl der bestellten Programme berechnen wir für das Inland 4,— DM bzw. für das Ausland 6,— DM Porto und Verpackung. 


DMV-Verlag - Postfach 250 - 3440 Eschwege 















ditor 


Funktion: Grafikprogramm zum Erstellen von hochauflösenden Grafiken, 
welche in a Programme eingebunden werden können sowie deren 
Ausgabe auf dem JOYCE-Drucker, 


Leistungsumfang: Der mitgelieferten Diskette können sie alle zum Arbei- 
ten mit dem Programm benötigten Dateien entnehmen. Für alle Turbo- 
Pascal-Programmierer wird auch der Programmtext mitgeliefert 


Funktionen: Durch das Unterscheiden zwischen Grob- und Feinbearbei- 
tung ist es möglich, brilliante Grafiken auf das Pixel genau zu zeichnen. 
Lösch- sowie Invertierfunktion sind in allen Bearbeitungsmodi aufrufbar. 
Auch Texte können bei der Grobbearbeitung in das Bild gebracht werden. 
Im Dateimenü steht neben einer Lade- und Speicheroption noch eine Funk- 
tion zur Verfügung, welche zwei Bilder miteinander mischt. Neben dem Ver- 
satz des linken Randes vor dem Drucken können noch vier verschiedene 
Druckformate angewählt werden. 





VOL. IV für Joyce/PCW 8256/8512 mit IelD 
ausführlicher Bedienungsanleitung . ä 


3“-Diskette 49,- 


unverbindliche Preisompfehlung 


Best.-Nr.:219 


1, Feld-Tab 

Ein BASIC-Programm zum millimetergenauen Ausfüllen von Tabellen, Vor- 
drucken und Formularen. Feld-Tab ist menügesteuert und bietet die Anwahl 
der einzeinen Funktionen, wie unter LocoScript gewohnt. Geben Sie Sei- 
tenlänge, Zeilenabstand und Tabulatoren in Millimetern ein, bestimmen Sie 
Schriftweite, Schriftart und Text. Text kann mit LocoScript erstellt werden 
und nach Umwandlung in eine ASCII-Datei in Feld-Tab eingelesen werden 
Weitere ASCII-Editoren können ebenso verwendet werden wie der komfor- 
table programminterne Seiteneditor. Ein unentbehrliches Werkzeug! 


2. Gsxplot 

Ein Grafikpaket für Statistiken, Geschäftspräsentationen und viele andere 
grafische Anwendungen! Über ein Menü sind folgende Funktionen wählbar: 
" Balkendiagramme ' Kurvendiagramme - Strichgrafik 

- Punktediagramme » Textgrafik 

Ein Hilfsprogramm erläutert Ihnen während der Arbeit mit Gsxplot die wich- 
tigsten Funktionen. Alle erstellten Grafiken können sowohl am Bildschirm 
als auch auf dem Drucker dargestellt werden. Gsxplot braucht den Ver- 
gleich mit wesentlich teurerer Software nicht zu scheuen! 








VOL.II für Joyce/PCW 8256/8512 zwei Disketten Preis 
mit ausführlicher Bedienungsanleitung : 


Best.-Nr.: 217 3*-Diskette 


unverbindliche Preisempfehlung 


Eine universelle Dateiverwaltung für PCW 8256/8512 zur Erstellung eigener Dateien 
Leistungsumfang: MASKE ist das Vorprogramm, mit dem Sie die Feld- 
namen und -längen sowie die Länge des Suchbegriffs voreinstellen 
können. 
SUPE t ist das Hauptprogramm, welches die Daten der gewünschten 
Datei verwaltet. Neben der Eingabe von Daten in die Maske sind mehrere 
Sucharten, so z.B. auch Jokersuchen möglich. Jede Datei kann max. acht 
Felder enthalten, wovon jedes max. 40 Zeichen enthalten darf. Die Gesamt- 
länge eines Datensatzes darf 255 Zeichen betragen. 
SUPERtex Dieses Programm stellt eine Rundschreib- (Mailmerge-)!unktion 
für SUPERdat zur Verfügung. In einen in Laufwerk M: befindlichen ASCII- 
Text (z.B mit RPED erstellt) werden automatisch vom Anwender vorausge- 
wählte beliebige Einträge aus beliebigen SUPERdat-Dateien an beliebiger 
Stelle eingefügt. Weiterhin können 30 beliebige Datensätze in eine für Lo- 
coScript lesbare Datei umgewandelt werden, 
SUPERCcal Der Taschenrechner zu SUPERdat. Dieser bietet neben den 
Grundrechenarten auch Winkelfunktionen, quadratische und Prozentfunk- 
tionen. Eine Klammerebene und Memory-Funktionen vervollständigen das 
Leistungsangebot dieses Programms. 
VOL.Il für Joyce/PCW 8256/8512 mit 
ausführlicher Bedienungsanleitung 


Best.-Nr.: 216 3“-Diskette 





2 _ [ii 
unverbindliche Preisempfehlung 


1. Der Character-Designer 

Funktion: Komfortable Erstellung eigener Zeichensätze auf PCW 8256/ 

8512 und deren Darstellung am Bildschirm! Ausdruck von ASCII-Files in 

diesem Zeichensatz unter CP/M Plus. 
Leistungsumfang: CD.COM ist der Character-Designer, der Editie- 
rung oder Neuerstellung von Zeichensätzen und deren Speicherung er- 
laubt. CD-PRINT druckt vorformatierte ASCII-Texte auf dem Joyce-Drucker 
oder anderen Druckern in dem gewünschten Zeichensatz aus. 
CRAZY, ORIGINAL, LOCCHAR und SCRIPT sind mitgelieferte Zeichensät- 
ze. SETUP.COM erlaubt als Zugabe die Vorwahl einiger Systemparameter, 
z.B. die der seriellen Schnittstelle, der Tastaturgeschwindigkeit und der 
Floppy-Steprate, 





on: Grafische Darstellung von mathematischen Funktionen und be- 
liebigen Meßreihen auf Bildschirm oder im Großformat auf dem Drucker. 
Leistungsumfang: Neben den arithmetischen Grundfunktionen sind auch 
weitere Funktionen darstellbar, die z.B, unter Mallard-Basic nicht zur Verfü- 
gung gestellt werden. Es können mehrere Funktionen und Meßreihen (die- 
se wiederum mit mehreren Meßwerten gleichzeitig) dargestellt werden 


VOL.l für Joyce/PCW 8258/8512 mit a 
ausführlicher Bedienungsanleitung EN er.» 


Best.-Nr.: 215 


3“-Diskette 49,— DI 


unverbindliche Preisempfehlung 





DMV - Angebo 
sche Textverarbeitung mit Joyce = = 
Ein Buch/Disketten-Paket. Der Autor Jürgen Sie- |; 


Drakt 


bert zeigt in diesem Buch Möglichkeiten der Text- 
verarbeitung auf, die Sie von LocoSeript nicht er- 
wartet hätten... Von der Pike auf werden Sie an | 
den Umgang mit Schablonen und Standardlayout | 
herangeführt. Einige Abstecher führen Sie an- 
hand anschaulicher Beispiele an Textverarbeitung 
und CP/M (ED/Wordstar) heran, 


Aus dem Inhalt: 

- LocoScript Spezial - Softwaretraining für Fort- 

geschrittene 

— Fehler im System: Wie rette ich meinen Text? 

- Joyce-Tasteninstallationsdatei für das Pro- 

gramm Wordstar — a 
- Aleatorische Poetik: Der Computer dichtet m ER mn 
Auf Diskette: Uber 50 Dateien mit Schablonen, Briefen, Postkarten, Serien- 
Rundschreiben, Formularen, Etiketten, Druckbeispielen, Schriften, 
Bildschirm-Installationen uvm. 

Leinen-Hardcover, 207 Seiten, 

3"-Diskette Best.-Nr, 401 












Das Große LOGO-Buch zu CPC und Joyce 


LOGO kann mehr, als Sie denken. LOGO ist heute eine 
anerkannte Sprache bei vielen ehrgeizigen Programmprojek- 
ten. Das reicht bis hin zur Erstellung von KI-Programmen. 
Hier das Buch für CPC- und Joyce-Besitzer, die viele Vorteile 
dieser Sprache kennenlernen wollen. Um nur einige Stich- 
worte zu nennen: Listenverarbeitung, Prozeduren, Rekur- 
sionen, Sortierroutinen, Maskengenerator. Nutzen Sie diese 
Sprache für Ihre eigenen, ehrgeizigen Programmideen. 












410 Seiten Best.-Nr. 417 DM 39, — 





Programmierwissen pur im Westentaschenformat 
Führer zum Joyce 
Best.-Nr. 450 DM 
Führer zum CP/M 
Best.-Nr. 452 







Den Joyce programmieren 


Der Autor hat es sich zur Aufgabe gemacht, den Joyce als 
vollständigen Computer zu beschreiben. Er vermittelt dem 
Joyce-Besitzer eine Menge interessanter und nicht alltäg- 
licher Kenntnisse. Außerdem ist das Buch angefüllt mit Pro- 
grammlistings, die für den fertigen Einsatz konzipiert sind. 
Aus diesen Listings lassen sich zahlreiche ausgefeilte Pro- 
grammtricks entnehmen. Der Aufbau und die Bedienung des 
CP/M-Betriebssystems werden ebenfalls für den Joyce- 
Anwender, der sich nicht mit einfacher Textverarbeitung 
begnügen will, behandelt. Insgesamt stellt das Buch eine 
interessante Programmierliteratur für den technisch interes- 
sierten Joyce-Eigner dar. 
















ca. 160 Seiten Best.-Nr. 425 






* Unabhängig von der Anzahl der besteliten Bücher berechnen wir für das Inland 4,- DM 
bzw. für das Ausland 6,- DM Porto und Verpackung. Bitte benutzen Sie die Bestelikarte. 


DMV-Verlag - Postfach 250 - 3440 Eschwege 





JOYCE 





MICA 


Ein CAD-Programm für den 


Joyce PCW 


CAD ist ein interessantes Anwendungsgebiet für einen 
Computer. Hauptsächlich werden CAD-Programme 
zum Erstellen technischer Zeichnungen benutzt. Da 
beim manuellen Zeichnen nach jedem Fehler die ganze 
Zeichnung von vorne begonnen werden muß, ist es sinn- 
voll, eben diese mit dem Computer zu erstellen. 


Das Programm MICA ist für diese An- 
wendung sehr interessant. Es ist in drei 
Versionen erhältlich: Für PC, ATARI 
ST sowie auch für CP/M-Computer 
wie zum Beispiel den Joyce PCW. Das 
erklärt auch, daß das 50-seitige Hand- 
buch, welches im Lieferumfang enthal- 
ten ist, sehr allgemein gehalten ist und 
nur in einigen Fällen gezielt auf einen 
speziellen Computer eingeht. 


Am Anfang... 


...sollten Sie einen Blick in das Hand- 
buch werfen, da der Umgang mit 
MICA ziemlich umständlich wirkt und 
die Tastaturbelegung erst einmal “er- 
lernt“ werden muß. Dort finden Sie 
alle nötigen Informationen über das 
Arbeiten mit MICA, die Installation 
von Fremddruckern und Plottern. 

Die Umschaltung auf diese Geräte, die 
nur über die CPS 8256 betrieben wer- 
den können, muß dem JOYCE jedoch 
vor dem Start von MICA mittels des 
Befehls DEVICE LST:=CEN mitge- 
teilt werden. Selbstverständlich muß 
das Hilfsprogramm DEVICE.COM 
auf der Diskette vorhanden sein. 

Insgesamt werden im Moment zehn 


hussahl nit Blank - Aufruf nit Return 
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verschiedene Drucker- sowie 21 Plot- 
ter-Treiber vom Programm zur Verfü- 
gung gestellt. Haben Sie keinen allzu 
weit verbreiteten Drucker beziehungs- 
weise Plotter, sollten Sie zuvor bei der 
Firma Wiedmann nachfragen, ob die- 
ser vom Programm unterstützt wird. 
Außerdem sollten Sie vor dem Kauf an- 
fragen, ob für Ihren Drucker/Plotter 
ein Treiber existiert. 


Grafik-Editor 


Wird dieser Punkt angewählt, werden 
Sie nach einem Dateinamen, der Sym- 
boldatei — also Elektronik oder Layout 
— und der Arbeitsebene 0-5 gefragt. 
Sind alle Angaben gemacht, wird der 
Editor nachgeladen und das Zeichnen 
in einer der Ebenen kann beginnen. Die 
Unterteilung des endgültigen Layouts 
in Ebenen hat den Vorteil, daß Sie ver- 
schiedene, sich überlappende Bereiche 
später mit einem Plotter in verschiede- 
nen Farben ausdrucken können. Dies 
hilft auch ungemein bei der Übersicht- 
lichkeit. UÜberlappen sich mehrere 
Schaltungen, so können diese später 
ohne Probleme auseinandergehalten 
werden. 


Abb.1: Das Haupt- 
menü von MICA. 
Wie von Wordstar 
gewohnt, sind die 
einzelnen Funktionen 
in einer OVL-Datei 
abgelegt 





Auch kann eine der Ebenen als Sym- 
bolspeicher genutzt werden. Dies stei- 
gert die Geschwindigkeit ungemein. 


Plotter / Drucker 


Innerhalb dieser zwei Menüpunkte 
können Sie das Erarbeitete (elektrische 
Schaltungen/Baupläne) auf den 
Drucker beziehungsweise Plotter aus- 
geben. Hier können Einstellungen wie 
Ausgabeschnittstelle (AUX, LST), 
Zoom-Faktor, Anzahl der Ebenen so- 
wie die Anzahl der Farben getätigt 
werden. Beim Plotterbetrieb mit einem 
HPX-84 konnten keine Schwierigkei- 
ten festgestellt werden. Auch der Aus- 
druck auf den JOYCE-Drucker klappte 
auf Anhieb. 


Fazit 


Wer mit seinem Joyce PCW CAD be- 
treiben möchte, sollte sich überlegen, 
ob MICA nicht das richtige für ihn ist. 
Wer diesen Schritt tut, muß jedoch wis- 
sen, daß die Anzahl der mitgelieferten 
Symbole beschränkt ist und somit viel 
Zeit nur für das Erstellen spezieller 
Symbole (je nach Bedarf) “geopfert“ 
werden muß. Desweiteren ist eine 
Mausunterstützung nicht integriert, 
was ein großes Manko im Vergleich zu 
anderen Programmen auf dem PCW 
darstellt. 


(rs) 


Sollten Sie Interesse an diesem Programm 
haben, oder sollten noch Fragen offenge- 
blieben sein, wenden Sie sich bitte an die 


Firma Wiedmann Unternehmensberatung, 
Korbiniansplatz 2, in 8045 Ismaning, wo 
Sie das Programm zu einem Preis von 
99,— DM erstehen können. 





LocoMail einmal 
anders 


Erstellen Sie Balkendiagramme 
mittels LocoMail 


Balkendiagramme unter LocoScript sind nichts Neues, 
Spätestens nach dem Lesen der PC Amstrad 12/88 wur- 
de durch den Artikel Text-Grafik-Kombination klar, 
wie Grafik in die LocoScript-Versionen 2.xx eingebun- 
den werden konnte. Sollten jedoch Balkendiagramme 
erstellt werden, war dies ein ziemlich schwieriges Unter- 
fangen. 


Um diese Arbeit zu erleichtern, wurde 








Eine mit LocoMail 1.xx erstellte Balkengrafik könnte zum Beispiel so aus- 
sehen 


das Programm Balken geschrieben. Es 
ermöglicht Ihnen das Erstellen von 
Balkendiagrammen unter LocoMail 1 
und 2. 

Für alle LocoMafl-1.xx-Anwender ist 
es nicht nötig, Veränderungen am Pro- 


gramm vorzunehmen. LocoMail-2.xx- 
Besitzer sollten jedoch alle “XXX“ 
durch Grafikzeichen ersetzen, die 
eventuell grafisch ansprechender sind. 
Des weiteren sollte die Zeilendichte 
auf 5 Zeilen/Zoll und der Zeilenab- 


stand auf 1/2 eingestellt werden, um ei- 
nen besseren Effekt zu erzielen. Wer 
sich diese Arbeit nicht machen möchte, 
kann beide Versionen der Databox- 
Diskette entnehmen. 

(Harald Lange/rs) 


(+Mail)PE=" (+Mail)T="":S=0: Q=0: R=1: Ri=1: R2=1: 

R3=1: A=0: 

B=0: C=0: D=0: E=0: F=0: G=0: H=0: I=0: K=0: L=0 

M=0: Z=?#; Anzahl der Balken : <- 

Mail) (+Mail)Wd="#": NP=" (+Mail)W=?#; Balkenwert 
(-Mail) c+Mail)W=LWI 11]: #5=0: <: A=W: > 

#S5=1: <: B=W: 3: #5=2: <: C=W: 3: #5=3: <: D=W: >: #5=4: < 

ı E=W: 3: #5= 5: <: F=W: 3: #5=6: <: G=W: > 

#S=7: <: H=W: >: #5=8: <: I=W: 3: #5=9: <: K=W: >: #5=10: 

S: L=eW: 3: #5 =11: <: M=W: >: #W>25: <ı R=2: > 

#W>50: <: R1=10: >: #W>250: <: R2=20: >: #W>500: <: R3= 

50: >: #Ri=1 O0: <: R=Rl: >: #R2=20: <: R=R2: > 

#R3=50: <: R=R3: >: S=[ S+1]: Q=[Q+W]ı #Z> 12: <: Z=12: 

2: #5=[Z10! ]:<: Wd="": 3 c-Mail)" c- 

Mail) <+Mail)@Wd%NP <-Mail) 

(+Mail)N=A: #B>N: <: N=B: >: #C>N: <: N=C: >: #D>N: <: N 

=D: 3: #E>N: <: N=E: >: #F>N: <: N=Fi > 

#GP>N: <: N=G: >: #H>N: <: N=H: 3: #I>N: <: N=I: >: #K>N: < 

ı N=K: 3: #L> N: <: N=L: >: #M>N: <: N=M: > 

#UN/RI>LN/RIOLJ: <: N=SLLN/RIOLJ=R+R): >: N=LNIO!) 


Listing LocoMail 





Anwendungsprogramme 
für CPC oder JOYCE 












ADRESCOMP  Adressendateiprogramm 58,— DM 
COMFORM Überweisungsformulare bedrucken 48,- DM 
DATENREM universelles Dateiprogramm 68,— DM 
ETATGRAF Haushaltsbuch mit Grafik 58,— DM 
FIBUCOMP Buchführung 98,- DM 
FIBUPLAN Buchführung mit MwSt-Berechnung 148,- DM 
KALKUREM Tabellenkalkulation (Version 2.0) 78,- DM 
LAGDAT praktisches Lagerdateiprogramm 68,- DM 
PROFIREM Rechnungen, Lager-, Adressendatei 1388,- DM 
TEXTKING Textprogramm (nur CPC) 78,- DM 
VOKABI universeller Vokabeltrainer 58,— DM 






Programme jeweils auf 3*-Diskette. Versand per Vorkasse (portofrei). 
Nachnahme (plus 5 DM), Oder fordern Sie nur unser Info für CPC bzw. Joyce an. 


VAN DER ZALM-SOFTWARE 


Elfriede van der Zalm, Software-Entwicklung & Vertrieb 
Schieferstätte, 2949 Wangerland 3, Tel. 04461/5524 






















EX=UXXX":Q =[Q/Z]: Wh="#". NE=" 

(+Mail)P=[0, 5#R]: VSLN+R]: TC-Mail) (+Us) | (- 

Us) (+Mail)T: #LV-AJ£O: C: X: >: T: #0 V-BJ 0: <:X: >: T 
: #ULV-C]80: SESDDUE 

#ULV-D] 80: <: X: >: T: #LV-E] 0: <: X: >: Ti ALV-F]<0:<: 
X: 3: T:#LV- G180: <: X: >: Ti # V-H] 50: <: X: >: T 
#ULV-1180: <: X: >: T: #LV-KJ 0: <: X: >: T: #LV-L180: <: 
X: >: T:#ULV- MI£0: <: X: >: T: #t V-Q] 80: <:ı X: ><- 
Mail) <+Us) (+Mail)T: N(-Mail)ı| (+Mail)#N>0: <c- 
Mail)<c- 


Us) (+Mail)>: T: #LV-AJ SP: <: X: >: T:#ALV-BISP: <: X: > 
ETE#LV-CIE Pı<: X: >: T: #LV-DIEP: <: RT 

#LV-EJ EP: <:X: 3: T: #LV-F]£Pı: <: X: >: T: #U V-G] $Pı <: 
X: 2: T:#LV- HIEP: <: X: 3: Tı #EV-I) SPi SeXE>ET 
#LV-KISP: <: X: 3: Ti #LV-LIEP: <: X: >: T:ı #UV-M] £Pı <: 


X: 3: T: #LV- QltPı <:X:> 

#N=0: <: T(-Mail) (-Us) (+Mail)Wh=""; >: N=[N-R] <- 
Mail)"<-Mail) c(+Mail)OWh%NE <- 

Mail) <+ZeichZ15) (+Mail)T: T: A: T: #Z>1:<:B:>: T: # 
222:<:C: >: 


Listing LocoMail 


Synthetronic macht Sommerpreise : 


( Händleranfragen sind bei uns willkommen ) 


Disketten Festplatten 

3"CF-2 DM 49.90 20 MB f.PC1512/1640 DM 559,- 
Maxell 5.25°2D DM 14.90 40 MB f.PC1512/1640 DM 719.- 
Drucker 20MB f.Joyce/PCW DM 898 
Star LC-10 DM 395.- Amstrad PC 

Sharp Laserdr. DM 2979.- PC 2086 VGA-Farbmonitor 
Farbbänder und 40 MB Harddisk DM 2999 


PCW 9512, Nylon DM 11.90 PC1640 Mono/20MB DM 1899 | 
PCW 9512, Carb. DM 14.90 PC 2286 Mono/40 MB DM 3999 
Versand per Nachnahme. Synthetronic GmbH 
Bestellannahme : 069 / 73 70 51 
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Zweitausend gute Gründe 


Die Festplatte VORTEX SYSTEM 2000 


am JOYCE PCW? 


JOYCE und kein Ende, seufzte neulich ein gestreßter Verkäufer, als der 
Kunde sich trotz intensiven Zuredens keinen teuren VGA-AT aufschwatzen 
ließ, sondern schlicht und einfach auf das Aschenputtel bestand, das da treu 
und brav im Hintergrund auf seinen Prinzen wartete. Denn dieser Kunde 
wollte nichts anderes als einfach schreiben; und dazu schien sich die Auf- 
machung des JOYCE besser als die der aufgeDOSten Animierkisten zu 


eignen. 


Wie sonst im Leben auch versteckt sich 
in der kurzlebigen Computer-Halbwelt 
hinter einer schillernden, auf Effekte 
zielenden Aufmachung vieles, was 
zum täglichen Gebrauch unnütz ist. 
Wer nur seine Einfälle speichern und 
später überarbeiten will, braucht keine 
tanzenden Männchen und kämpfenden 
Raumfähren auf dem Bildschirm. Für 
einen anbetenden Freier wird bei fal- 
scher Konfiguration die Ernüchterung 
spätestens nach den Flitterwochen 
kommen. Nicht wenige haben ihre 
sündhaft teuren Gripskisten bald wie- 
der auf den Dachboden verbannt und 
schlagen sich weiter mit dem alten, 
aber zuverlässigeren JOYCE herum, 


Zugegeben, mit der einfachen Mitgift, 
sprich Grundausstattung, steht er wirk- 
lich etwas dürftig zwischen seinen no- 
blen Stiefschwestern herum. Im Ver- 
gleich mit diesen muß jede Kritik (sie- 
he Stiftung Warentest) zum Nachteil 
des JOYCE ausfallen. 
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Aber niemand würde auf den verrück- 
ten Gedanken kommen, Bergstiefel zu- 
sammen mit Ballettschühchen nach ein 
und demselben Kriterium zu testen und 
zu bewerten. 

Um die versteckten Talente unseres 
Aschenputtels aller Welt deutlich zu 
machen, sollten dem unscheinbaren 
Ding Festkleider angelegt werden. Zu- 
erst war die Betonung der Oberweite 
(Speichererweiterung) fällig, danach 
ein Joystick, denn spielen will man mit 
einer attraktiven Jungfer auch. Als 
nächstes folgte ein 5 1/4-Zoll-Lauf- 
werk und zum Überfluß ein eingebau- 
tes Laufwerk mit 3 1/2 Zoll. 

Mit einer solchen Aussteuer kann unser 
JOYCE im ASCII-Modus mit der gan- 
zen noblen Gesellschaft kommunizie- 
ren und das zum Spartarif (sprich billi- 
ge Disketten). Ganz schön anpassungs- 
fähig! 

Nun, die Krone fehlt noch. Ein kluges 
Köpfchen braucht viel Wissen, und das 


muß gespeichert werden. Die Vortex- 
Festplatte System 2000 mußte es sein, 
natürlich gleich mit 60 MByte. Da hat- 
te der Käufer wohl schon im Hinter- 
kopf, daß er irgendwann einmal ein 
Verhältnis mit einem MS-DOS-Com- 
puter nebenher haben würde, das die- 
sen voll kompatiblen Speicher ohne 
Probleme mitbenutzen könnte. Jeden- 
falls war aus dem häßlichen JOYCE- 
Entchen ein hübscher Schwan gewor- 
den, mit dem man sich überall sehen 
lassen kann. Nur mußte es sich noch 
angemessen bewegen lernen. 


Keine Berührungsängste 


Wie man mit Disketten umgeht, ist in 
der gängigen Fachpresse bis zum 
Überfluß beschrieben worden. Wie 
aber arbeitet man mit einer Festplatte? 
Wie wird sie sinnvoll installiert und am 
einfachsten benutzt? Darüber schwieg 
bislang die schwarze Zunft. Dabei 
weiß jeder Computer-Freund ein Lied 
davon zu singen, wie schwer es doch 
ist, die neue Braut aus Handbuch und 
Begleitdiskette kennenzulernen. 

Nach der Installation (Formatierung) 
soll gemäß der Anweisung die Partitio- 
nierung der einzelnen Arbeitsbereiche 
erfolgen; das bedeutet, den emulierten 
Laufwerken und der Festplatte soll die 
jeweilige Kapazität zugewiesen wer- 
den. Natürlich kann man es bei der 
Voreinstellung belassen. Aber ist es 
wirklich sinnvoll, allen Pseudo-Lauf- 
werken die gleiche Speicherkapazität 
zuzuteilen? Darüber muß man sich so- 
fort Gedanken machen. Ist erst einmal 
alles installiert, wird jede Anderung 
zur Stunde Null zurückführen, das 
heißt im Klartext — bei einer erneuten 
Partitionierung wird alles auf der Fest- 
platte gelöscht. Wie jeder gestreßte 
Bit-Philosoph inzwischen erfahren 
mußte, läßt sich entgegen den Kant- 
schen Behauptungen kein Problem al- 
lein a priori lösen. Ohne Empirik läuft 
nichts. Probieren geht noch immer 
über Studieren. 


Worauf es ankommt 


Für alle Festplatten-Anwender dürfte 
es sinnvoll sein, die eigentlichen Pro- 
gramme in einem Arbeitsbereich zu- 
sammenzufassen, der beim Laden au- 
tomatisch angesteuert wird. Hierbei 
wird man Utilities, die mit vielen Un- 
terdateien ausgestattet sind, wie zum 
Beispiel dBase oder Graph, eine eigene 
Gruppe innerhalb des Arbeitsbereichs 
zuweisen. Dieser Programmspeicher 
muß nicht unbedingt die gleiche Kapa- 


| 
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zität aufweisen wie die eigentlichen 
Arbeitsspeicher. Also vermindert man 
mit der Partition diesen Bereich auf das 
Notwendige (3000 bis 4000 kByte), 
entsprechend den Dienstdateien plus 
einer nicht zu geringen Reserve und 
teilt den anderen Bereichen einen grö- 
Beren Magen zu. Das geht einfach über 
Menü und ist im Handbuch ausführlich 
erläutert. Wir können auf weitere Er- 
läuterungen verzichten. 

Mit MARK muß anschließend noch die 
Festplatte auf fehlerhafte Blöcke unter- 
sucht werden. Diese werden dann auto- 
matisch in einer Datei zusammengefaßt 
und schamhaft im System versteckt. 
Sollten mehr als vier oder fünf fehler- 
hafte Blöcke angezeigt werden, wird 
zweckmäßig eine neue Formatierung 
durchgeführt und die Prozedur wieder- 
holt. 


Die Startdiskette 


Unser gutes Mädchen JOYCE kann 
niemals ohne Startdiskette auf Trab ge- 
bracht werden. Ihm fehlt das INNERE 
FLUSTERN, das anderen Geräten bei 
der Erzeugung eingebrannt wurde. 
Also braucht es Animation. Die Start- 
diskette bekommt in unserem Fall eine 
LocoScript- und eine CP/M-Seite. Auf 
die LocoScript-Seite gehören alle Fi- 
les, die auf der entsprechenden Seite 
der VORTEX-Original-Disk zu finden 
sind. 

Die CP/M-Startdiskette sollte folgende 
Files aufnehmen: 


JI8GCPM3.EMS 
$YS00208. FID 
SUBMIT.COM 
PROFILE.SUB 


Die notwendige PROFILE.SUB-Datei 
erstellen wir selbst mit einem beliebi- 
gen Editor. Soll zum Beispiel mit dem 
speziell für PCWs (und CPCs) ent- 
wickelten Textprogramm PROWORT 
von ARNOR gearbeitet werden, lautet 
der Inhalt der Datei 


E 
SETKEYS JOY.KEY 


PROWORT 





Wobei C: für den Arbeitsbereich steht, 
auf dem sich alle Programme und Utili- 
ties befinden. Setkeys benötigt man 
nur, wenn ein Joystick angebracht und 
eine Tastenbelegung in der Datei 
JOY.KEY abgelegt wurde. Für PRO- 
WORT kann natürlich auch dBase, 
Graph und so weiter stehen. Natürlich 
kann man auch darüber philosophie- 
ren, ob nicht mehr Programme — wie 
bisher — auf der ohnehin benötig- 


ten Startdiskette abgelegt werden sol- 
len. Schließlich ist sie halbleer. 


Ende — Ausschalten 


Wir sind noch nicht am Ende, aber das 
Ein- und Ausschalten des Geräts gehört 
an den Anfang einer Erklärung. Die 
VORTEX-Originaldisk enthält eine 
Datei PARK.COM. Diese gehört mit 
in den Programmteil und muß aufgeru- 
fen werden, wenn man fertig ist und 
den Computer ausschalten möchte. 


Was dann zu tun ist, läßt sich einfach 
auf dem Bildschirm ablesen: Erst 
JOYCE, dann die Festplatte ab- 
schalten. 


Kopieren geht über 
Manipulieren 


Um den Diskettensalat endgültig vom 
Schreibtisch zu kriegen, sollen also alle 
Anwenderprogramme auf die Festplat- 
te kopiert werden. Doch der Inhalt von 
50 Disketten in ein Directory? Wer soll 
sich da noch zurechtfinden? Natürlich 
benutzt der versierte JOYCEr die 15 
möglichen Gruppen eines Arbeitsbe- 
reichs ( O bis 14 ) und teilt die Files 
nach dem Nützlichkeitsprinzip auf, Für 
umfangreiche Programme benutzt 
man, wie schon gesagt, zweckmäßig 
eine eigene Usergruppe. Nun zum Ko- 
pieren: Mit dem Textprogramm PRO- 
WORT geht das leicht. Aus dem A- 
oder (falls vorhanden) B-Laufwerk 
wird der Text nach dem Aufruf:COPY 
Filename nC oder COPY *.* nC (n 
steht für die jeweilige Gruppe) an- 
standslos hinüberbefördert. Natürlich 
funktioniert das auch zwischen einzel- 
nen Arbeitsbereichen, der Festplatte 
und verschiedenen Usergruppen. Bei 
anderen COPY-Programmen muß man 
eine Formel voransetzen <A:=n[:>, 
wobei wiederum n für die Usergruppe 
und € für das Laufwerk steht. Leider 
geht nicht alles glatt. Spätestens beim 
Kopieren des PROWORT-Wörterbu- 
ches auf die Festplatte zeigen sich die 
offenbar unausrottbaren Probleme. 
Der Grund: Die vollgepfropfte Wör- 
terbuch-Diskette zeigt aus unerfindli- 
chen Gründen Null-Bock, sprich 0 Fi- 
les an. Mit normalen Kopierprogram- 
men ist da nichts zu machen. Die sehen 
nichts, was es zu kopieren gäbe. Nur 
Philosophen sehen hinter Nichts noch 
das NICHTS als ETWAS. 

Gäbe es da nicht im PD-Bereich (Pu- 
blic Domain ) ein hübsches Programm 
namens COPYFILE.COM, wäre man 
aufgeschmissen. Ruft man das nützli- 
che File auf, und hängt dem Aufruf 


gleich die gewünschte Transaktion von 
Laufwerk zu Laufwerk an, wird das 
Wörterbuch samt Inhalt brav auf den 
gewünschten Teil der Festplatte trans- 
feriert — und dann? Allen Täuschungs- 
versuchen (mit EX) zum Trotz verlangt 
SPELL weiterhin trotzig das Wörter- 
buch im A: Laufwerk. Da ist mit ge- 
bräuchlichen Naturheilmethoden 
nichts zu heilen. Wir müssen schon 
operieren. Damit ist eine neue Aufgabe 
für Programmchirurgen gestellt. 


Etwas sehr Erfreuliches 


Um die Stimmung wieder zu heben, 
verkündet der Herold folgende frohe 
Botschaft: Mit der Festplatte und PRO- 
WORT kann JOYCE auch Programme 
von 9000 und mehr kBytes verarbeiten. 
Das reicht schon für eine kleine Enzy- 
klopädie. Außerdem geht keine Datei 
verloren, auch wenn unser Mädchen 
einmal ausflippt und sich aufhängt. 
Kaum zum Leben erweckt, egal ob 
durch Kalt- oder Warmstart, zeigt sich, 
daß nichts, aber auch gar nichts verlo- 
renging. Um das zu erreichen, muß le- 
diglich die Konfiguration von PRO- 
WORT geändert werden und zwar so, 
daß als Temporärwerk eine weitgehend 
freigehaltene Partition angewählt wird. 
Dorthin, statt ins M-Laufwerk, verla- 
gert JOYCE nun alle Zwischenspei- 
cherungen und behält sie dort, bis der 
LEEREN-Befehl alles wieder löscht. 
Wem schon einmal unter LocoScript 
oder in anderen Programmen nur durch 
einen dummen Fehler mehrere Seiten 
Text abhandengekommen sind, wird 
diese frohe Botschaft jubelnd begrü- 
Ben. Wenn aber keine Zwischenlage- 
rung mehr im RAM-Speicher erfolgt, 
wozu noch eine Speichererweiterung? 
Darauf kann man verzichten. Der M- 
Speicher wird, zumindestens unter 
PROWORT, nicht mehr benötigt. Im- 
merhin kosten die zur Erweiterung be- 
nötigten acht Speicherchips heute das 
Stück schon zirka 23 DM. Das Geld 
läßt sich nützlicher verwenden, viel- 
leicht als Anzahlung auf einen komfor- 
tableren Drucker. 


Summa Summarum 


Mit einer Festplatte ist der JOYCE al- 
len teureren Maschinen in der Textver- 
arbeitung ebenbürtig. 
Was noch fehlt, ist ein File-List-Pro- 
gramm, das alle Dateien in allen Grup- 
pen gleichzeitig übersichtlich anzeigt. 
Auch LocoScript bietet nur für jeweils 
acht Gruppen eine Übersicht an. Da 
gibt es für Tüftler noch einiges zu pro- 
grammieren. 

(Bruno Melchert/rs) 
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PC-Programm f ER, 


Schnell geschoben 
ist halb gewonnen 


’Schiebefix’ hatten wir letztens für den CPC im Heft. 
Die PC-Besitzer kamen leider etwas zu kurz dabei, je- 


doch, wie Sie sehen, nicht zu lange. Hier ist es nun 
—Schiebefix in BASIC2 mit Mausbedienung. 


Dieser Spielklassiker erreicht unter BASIC2 durch die 
Mausbedienung einen ganz neuen Reiz. Die Spielregeln 
dürften eigentlich hinreichend bekannt sein und müssen wohl 
nicht lang und breit erklärt werden, zumal sie beim Start des 
Programms kurz erläutert werden. Nach Tastendruck wer- 
den nun die drei verschiedenen Spielfelddarstellungen aufge- 
zeigt, von denen dann aus einem ALERT-Fenster eine ausge- 








































REM Schiebe,Bas 
GOSUB vorbereitung 


LABEL spielanfang 

GOSUB spielanleitung 

GOSUB spielfeld 

FOR i=5 TO 20 

GOSUB zufall 

IF z=16 THEN z$(i)=" " ELSE z$(i)=DEC$(z,"##") 
GOSUB anzeigen 

NEXT i 


LABEL schleife 

GOSUB warten 

GOSUB mausabfrage_eins 

GOSUB warten 

GOSUB mausabfrage_zwei 

GOSUB zugkontrolle 

IF fehl=1 THEN fehl=0: GOTO schleife 

GOSUB austausch 

anzahl=anzahl+1:PRINT AT(70;13) USING "####" , POINT 

S(10) COLOUR(12) anzanl; 

IF wahl=1 THEN RESTORE streifen 

IF wahl=2 THEN RESTORE schlange 

IF wahl=3 THEN RESTORE schnecke 

FOR i=5 TO 20 

READ ende$ 

IF z$(i)<>ende$ THEN GOTO schieife 

NEXT i 

PRINT CHRS(T7);CHR$(7);CHR$(T);CHRS(T);CHRS(7); 

PRINT AT(5;22) COLOUR(12) CHR$(27)+"p"+"Geschafft! 
Das Spiel ist zu Ende! Nochmals ein Spiel (J)a 

REPEAT 

taste$=INPUT$(1) 

UNTIL UPPER$(taste$)="J" OR UPPER$(taste$)="N" 

IF UPPER$(taste$)="J" THEN anzahl=0: gesamt$="": G 

OTO spielanfang 

IF UPPER$(taste$)="N" THEN CLEAR RESET: END 





REM *##*# Unterprogramme *** 


LABEL mausabfrage_eins 

PRINT AT(60; 8) POINTS(20) COLOUR(12) "1. Feld"; 
PRINT AT(60;10) POINTS(20) COLOUR(12) "wählen!”; 
REPEAT 

maus=BUTTON(1) 

' UNTIL maus<>-1 

IF maus<>-1 THEN xm=XMOUSE: ym=YMOUSE: PRINT CHR$( 
7); 

GOSUB zuweisung 

eins=i 
RETURN 





Listing Schiebefix 
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| maus=8UTTOoN(!) 











Et 8; 

G 

wählt werden muß. Die gewählte Form wird nach dem Spiel- 
feldaufbau als Zielangabe unten rechts in einem Anzeigefeld 
nochmals ausgegeben, so daß der Spieler stets einen opti- 
schen Vergleich mit seinem Spielestand hat. Die Auswahl 
bzw. das Verschieben von Feldern erfolgt allein mit der 
Maus. Dazu muß der Mauszeiger in der Mitte des Feldes po- 
sitioniert und dann die linke Maustaste gedrückt werden. Ist 
dies nicht der Fall, so wird wie bei einem nicht erlaubten 
Spielzug eine Fehlermeldung ausgegeben. Danach muß die 
Felderauswahl wiederholt werden. Im rechten Anzeigefeld 
wird auch die Zahl der bisher benötigten Spielzüge angege- 
ben. Ein Endstand von 50 Zügen oder weniger ist eine gute 
Leistung, auch wenn die eingebaute Zufallswahl einen nicht 
immer gleich schwierigen Start beschert und der Endstand 
also nur bedingt für den Vergleich taugt. Und nun viel Erfolg 
bei dem Versuch, einen möglichst geringen Endstand zu er- 


zielen! (Ruben Rimmler /jb) 










































LABEL mausabfrage_zwei 
PRINT AT(60; 8) POINTS(20) COLOUR(12) "2. Feld"; 
PRINT AT(60;10) POINTS(20) COLOUR(12) "wählen!"; 
REPEAT 


UNTIL maus<>-1 

IF maus<t>-1 THEN xm=XMOUSE: ym=YMOUSE: PRINT CHR$( 
7); 

GOSUB zuweisung 

zwei=i 

RETURN 


LABEL warten 

FOR warte=1 TO 2000 
NEXT warte 

RETURN 


LABEL austausch 

SWAP z$leins), z$(zwei) 
iseins: GOSUB anzeigen 
i=zwei: GOSUB anzeigen 
RETURN 


LABEL anzeigen 

SET POINTS 20: SET COLOUR 12 

IF i=5 THEN PRINT AT(10; 4) z$(i 
IF i=6 THEN PRINT AT(20; 4) z$(i 
IF i=7 THEN PRINT AT(30; 4) z$(1 
IF i=8 THEN PRINT AT(40; 4) z$(1 
IF i=9 THEN PRINT AT(10; 9) z$(i 
IF i=10 THEN PRINT AT(20; 9) z$( 
IF i=11 THEN PRINT AT(30; 9) z$( 
IF i=12 THEN PRINT AT(40; 9) z$( 
IF i=13 THEN PRINT AT(10;14) z$( 
IF i=14 THEN PRINT AT(20;14) z$( 
IF i=15 THEN PRINT AT(30;14) z$( 
IF i=16 THEN PRINT AT(40;14) z$( 
IF i=17 THEN PRINT AT(10;19) z$( 
IF i=18 THEN PRINT AT(20;19) z$( 
IF i=19 THEN PRINT AT(30;19) z$( 
IF 1=20 THEN PRINT AT(40;19) z$( 
SET POINTS 10: SET COLOUR 1 
RETURN 


LABEL zuweisung 

IF xm> 60 AND xm<120 AND ym<165 AND ym>140 THEN i= 
2 xm>140 AND xm<200 AND ym<165 AND ym>140 THEN i= 
1 xm>220 AND xm<280 AND ym<165 AND ym>140 THEN i= 
Fe xm>300 AND xm<360 AND ym<165 AND ym>140 THEN i= 
1 xm> 60 AND xm<120 AND ym<125 AND ym>100 THEN i= 
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xm>140 AND xm<200 AND ym<125 AND ym>100 THEN i= 














xm>220 AND xm<280 AND ym<125 AND ym>100 THEN i= 








xm>300 xm<360 AND ym<125 AND ym>100 THEN i= 


















xm> 60 AND xm<120 AND ym< 85 AND ym> 60 THEN i= 








xm>140 AND xm<200 AND ym< 85 AND ym> 60 THEN i= 















xm>220 xm<280 AND 





ymt 85 AND ym> 60 THEN i= 








xm>300 AND xm<360 AND ym< 85 AND ym> 60 THEN i= 












xm? 60 AND xm<120 AND ymt 45 AND ym> 20 THEN i= 








xm>140 xm<200 AND ym< 45 AND ym> 20 THEN ji= 












xm>220 AND xm<280 AND ymt 45 AND ym> 20 THEN i= 









xm>300 xm<360 AND ym< 45 AND ym> 20 THEN i= 









RETURN 






LABEL zugkontrolle 
IF z$(leins)<>" * 
hler: RETURN 

IF (z$(eins)=" " OR z$(zwei)=" ") AND (zweiseins 
+1 OR zwei=eins-l OR zwei=eins+4 OR zweiseins-4) T 
HEN RETURN ELSE GOSUB fehler: RETURN 





AND z$(zwei)<>" " THEN GOSUB fe 









LABEL fehler 
fehl=ALERT 1 TEXT 


m ” 
° ’ 






Dies ist ein falscher Spielzug 
Erlaubt ist nur ein waagrechter ", ” oder s 
enkrechter Feldtausch mit ", " einem benachbarten 
leeren Feld! " BUTTON RETURN " OKAY " 

WINDOW #1 MOUSE 4 

fehl=ı 
RETURN 















LABEL zufall 
z=RND(16) 

z$ (1 )=STR$(Z)+" " 

prüfe=INSTR(gesamt$,2$(i)) 

IF prüfe=O THEN gesamt$=gesamt$+z2$(i): RETURN 
IF prüfe>0 THEN GOTO zufall 

RETURN 












LABEL vorbereitung 
CLOSE WINDOW 1: CLOSE WINDOW 2: CLOSE WINDOW 3: EL 
OSE WINDOW 4 

SCREEN #1 GRAPHICS 640 FIXED, 200 FIXED 

WINDOW #1 TITLE "VERSCHIEBEF IK" 

WINDOW #1 OPEN: WINDOW #1 FULL 

CLS: DIM z$(20) 

RETURN 












LABEL spielfeld 
CLS: BOX 1;1, XVIRTUAL,YVIRTUAL COLOUR 2 FILL 

80X 400;330,4550,4550 ROUNDED COLOUR 1 FILL 

80X 530;450,4250,4250 COLOUR 0 FILL 

FOR y=4300 TO 0 STEP -1060 

LINE 550;430+y, 4800;430+y COLOUR 1 WIDTH 5 

NEXT y 

FOR x=0 TO 4300 STEP +1060 

LINE 550+x;450, 550+x;4650 COLOUR 1 WIOTH 5 

NEXT x r 

BOX 5850;330,1850,4550 ROUNDED COLOUR 1 FILL 
PRINT AT(60;3) POINTS(20) COLOUR(6) MODE(2) "Felde 
r="; 

PRINT AT(60;5) POINTS(20) COLOUR(6) MODE(2) "anwah 
Vans 

PRINT AT(60;13) POINTS(10) COLOUR(6) MODE(2) "Zugz 
Ani: 7% PRINT ° a 

SET COLOUR 6: SET MODE 2 

IF wahl=1 THEN GOSUB streifenplan 

IF wahl=2 THEN GOSUB schlangeplan 

IF wahl=3 THEN GOSUB schneckeplan 

SET COLOUR 1: SET MODE i 

RETURN 
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LABEL 
PRINT 
PRINT 


streifenplan 
AT(60;16) "Ziel: STREIFEN" 
AT(60;17) " ı 2 3 4" 











PRINT AT(60;18) " 5 6 7 8" 
PRINT AT(60;19) " 9 10 ı1 12" 
PRINT AT(60;20) "13 14 15 xx=" 






RETURN 










LABEL 
PRINT 
PRINT 


schlangeplan 
AT(60;16) "Ziel: SCHLANGE" 
AT(60;17) “ ı 2 3 4" 









PRINT AT(60;18) " 8 7 6 5” 
PRINT AT(60;19) " 9 10 ı1 12" 
PRINT AT(60;20) "«= 15 14 13" 











RETURN 





LABEL 
PRINT 
PRINT 


schneckeplan 
AT(60;16) "Ziel: SCHNECKE" 
AT(60;17) " ı 2 3 4" 









PRINT AT(60;18) "12 ı3 ı4 5” 
PRINT AT(60;19) "11 == 15 6" 
PRINT AT(60;20) "10 9 8 LA 






RETURN 








LABEL spielanleitung 
SET COLOUR 6: SET POINTS 20: SET MODE 2 
CLS: BOX 1;1,XVIRTUAL,YVIRTUAL COLOUR 2 FILL 
ALERT 0 TEXT" VERSCHIEBEFTIX a 
copyright 1988 by",“ Ruben Rimmier 
a RZ Non Neresheim " BUTTON RETURN " 








START "“ 







PRINT 

PRINT .“ Split in I sit un g *ix" 
PRINT " ----------- - === - 222 -22-_--_.___ 32 
PRINT " Im Spiel Verschiebefix müssen die an=" 
PRINT " gezeigten Zahlen in die richtige Rei=" 











PRINT " henfolge gebracht werden. Dazu können" 
PRINT " die Zahlfelder mit Hilfe eines leeren" 
PRINT " Feldes verschoben werden. Alle Felder" 
PRINT " werden durch Anklicken mit der Iinken" 
PRINT " Maus-Taste ausgewählt und verschoben!" 
PRINT COLOUR(O) " --- Weiter mit beliebiger Taste 
’ 
REPEAT 






UNTIL INPUT$(1)<>"" 
CLS: BOX 1;1,XVIRTUAL,YVIRTUAL COLOUR 2 FILL 
PRINT 








PRINT " Es gibt drei verschiedene Zahlfelder:" 
PRINT 
PRINT 1) STREIFEN 2) SCHLANGE 3) SCHNECKE" 
PRINT 





80X 200;700,2300,2300 ROUNDED COLOUR 6 

80X 2850;700,2300,2300 ROUNDED COLOUR 6 

80X 5550; 700,2300,2300 ROUNDED COLOUR 6 

PRINT " 1: 2 3 '%& 3 2 3774 ı 2 5: 8 

BRINT © 5 868 7 8 &® = 85 1231530 % 

11 #8 15 8" 
7 













PRINT *": 8:10 41 ı2 9 10 11 12 

PRINT “ 13 14 15 = #2 15 14 13 109 8 .: 

PRINT 

PRINT COLOUR(O) " --- Weiter mit beliebiger Taste 
> 

REPEAT 







UNTIL INPUTS(1)<c>"" 

wahl=ALERT O TEXT 
ZEN 3)" 

TTON "STREIFEN", "SCHLANGE", "SCHNECKE" 

WINDOW #1 MOUSE 4 

CLS: SET COLOUR 1: 

RETURN 





"Zahlfeld wählen: 1)", "", " 





SET POINTS 10: SET MODE ı 







LABEL streifen 
DATA " 1%," 20,0 ann an gem 6",“ 
"20", "2" "12" "13" large" 







LABEL schlange 
DATA " 17,° 2°,” 30,0 gun ge,“ 
“10” H11","120," legen 










LABEL schnecke 
DATA " ı"," 20," 
"on ngge“ 





a"," 
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Die dritte Dimension 


Rainbow-CAD - Zeichnen und entwickeln 


Einer der interessantesten Verwendungszwecke des PC oder des Computers 
überhaupt ist die Grafik. Aber erst richtig interessant wird es, wennesan 
die Programmierung dreidimensionaler Grafik geht. 


Genau hier setzt das Programm an. Es 
ermöglicht sehr einfach die Erstellung 
von 3D-Drahtgittermodellen, voraus- 
gesetzt, Sie opfern ein wenig Ihrer 
kostbaren Zeit zum Abtippen. 





Das Koordinate 


Das Programm v regel ein genorm- 
tes X- Y-Z-Achsen-Koordinatensy- 
stem.Das Koordinatensystem hat auf 
jeder Achse eine Länge von 20 Einhei- 
ten, das heißt: Aufjeder Achse geht das 

'Zeichenbrett' von -I0 bis 10. Natür- 
lich können auch Dezimalbrüche ver- 
wendet werden, die ja sowieso bei ei- 
ner Rotation ‚entstehen würden. 






Bedienung 
Das Programm ist t so programmiert 
worden, daß (fast) alle Funktionen sich 





mit dem NUM-Block und der Maus be- 
dienen lassen. Um zum Beispiel vom 
Hauptmenü in eines der Untermenüs zu 
gelangen, tippen sie lediglich die Zahl 
ein, die vor dem entsprechenden Me- 
nüpunkt aufgeführt 


Der ms 











Wr 
nen neuen Punkt eingeben. Die Punkte 
werden automatisch numeriert. Die 
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Koordinaten des Punktes beziehen sich 
auf das genormte' Koordinatensystem 
mit X-,Y-,Z-Achsen. 


1:2) Punkt korrigieren 

Mit dieser Funktion können Sie einen 
Punkt korrigieren, Hierzu geben Sie 
die Nummer des Punktes und danach 
die neuen Koordinaten des Punktes ein, 


2.) Linie-Edit 

2.1) Linie definieren 
Um eine Linie zu definieren, brauchen 
Sie nur die Eckpunkte einzugeben. 
Auch die Linien werden automatisch 
numeriert. 


2.2) Linie korrigieren 

Diese Funktion verhält. sich genauso, 
wie die Funktion 1,2, das heißt, Sie 
brauchen nur die Nummer des Punktes 


und dann die neuen Eckpunkte einzu- 
geben. | 


3.) Transformationen 

3.1) Rotation 

Mit Hilfe dieser Funktion können Sie 
das Objekt um eine Achse rotieren las- 
sen, die Sie mit. der Maus anklicken. 
Dann geben Sie ein, um wieviel Grad 
(in dem üblichen Gradmaß) das Objekt 
rotieren soll. 


3.2) Translation 
Hierzu geben Sie ein, um wie viele 
Einheiten das Objekt entlang der ein- 
zelnen Achsen "verschoben werden 
soll. 


Mit RAINBOW-CAD 
lassen sich anspr&- 
chende Konstruk- 
tionsgrafiken er- 
stellen 


de u u \g 
tion können Si uf infe 








hen lassen. Die Funktion ist relativ ein- 
fach. Normalerweise werden bei einer 
Transformation die einzelnen Punkte 
neu berechnet. Die alten Punkte wer- 
den also durch neue Werte ersetzt. 
Wenn diese Funktion nun auf ON ge- 
schaltet ist, bleiben die alten Werte 
auch noch im Speicher. Der alte Zu- 
stand des Objektes wird also beim Neu- 
zeichen auch ausgegeben. Man darf die 
Funktion nicht mit Funktion 7.4 ver- 
wechseln, da die Ergebnisse sich sehr 
unterscheiden. 


7.6) SET-Mode 


Es gibt zwei verschiedene Zeichenmo- 
di: Zum einen den AND-Modus und 
zum anderen den XOR-Modus. Wel- 
chen von beiden Sie zur Ausgabe be- 
nutzen wollen, klicken Sie ihn einfach 
mit der Maus an. 


8) AUTO-Dimensionierung 


Mit dieser Funktion können Sie eine 
Fläche, die nur auf der X-, Y-Ebene 
besteht, 'in die Tiefe ziehen’. Also so- 
zusagen dreidimensional machen. 
Auch diese Funktion nimmt Ihnen viel 
Arbeit ab. 


Die Entstehung eines 


3D-Objektes 


Verdeutlichen wir uns einmal die Vor- 
gehensweise an einem einfachen, aber 
beindruckenden Beispiel. Dieses Bei- 


— 


100 'RAINBOW CAD 1.0 


110 


130 

140 DIM p(1000,2) 
150 DIM 1(1000,2) 
160 DIM transı(4,4) 
170 

180 OPTION DEGREES 
190 OPTION DECIMAL "."," " 
200 


220 

230 style_number=1 
240 width_number=1 
250 art_of_end =0 
260 screen_clear=1i1 
270 op_tr=2 

280 loop=FALSE 

290 


310 

320 CLOSE WINDOW 3 
330 CLOSE WINDOW 4 
340 

350 FOR i=1 TO 10 
360 CLOSE #1 

370 NEXT 1 

380 

390 OPEN #1 WINDOW 1 


00 FIXED INFORMATION OFF 
410 WINDOW #1 TITLE "3-D Wire Frame 
een " 
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120 REM ##s#=x Dimensionierung der Felder #zx#* 


"Punktespeicher 
"Linienspeicher 
"Translationsmatrix 


210 REM #x2=# Definition der Standartwerte #zarz 


300 REM *##== Windows einrichten xxx=# 


400 SCREEN #1 GRAPHICS XUSABLE-80 FIXED 






spiel führen Sie am besten mit dem 
Programm sofort durch. W_r wollen 
zuerst einmal einen einfachen Quader 
entwerfen, den wir dann durch einige 
einfache Transformationen in ein kom- 
plexes Gebilde verwandeln. 


Zuerst müssen wir eine Seite des Qua- 
ders entwerfen. Dazu müssen wir zu- 
erst die Eckpunkte bestimmen: 


Punkt 0: 0:0;0 

Punkt 1: 1:0;0 

Punkt 2: 1:1:0 

Punkt 3: 0:1:0 

Die einzelnen Punkte müssen auch ver- 
bunden werden. 

Linie 0: 0;1 

Linie 1: 1;2 

Linie 2: 2;3 

Linie 3: 3;0 

Wenn wir nun das Objekt zeichnen las- 
sen, sehen wir ein simples Viereck. 
Dann machen wir aus dem Viereck ei- 
nen Quader, indem wir die Funktion 8 
anwählen und eine Tiefe von | einge- 
ben. Wenn wir nun das Objekt zeich- 


nen lassen, sehen wir unser erstes 3D- 
Objekt. 


Wir verschieben das Objekt, bis der 
Mittelpunkt des Quaders gleich dem 
Nullpunkt des Koordinatensystems ist. 
Hierzu wählen wir die Funktion 3.2 an. 


Translation: -0.5:-0.5:-0.5 























450 STREAM #1 
460 


ION OFF 


510 WINDOW #2 
520 


550 
560 
570 
580 SET MODE 3 


"ana. 


670 SET FONT(2) 


« YUSABLE-ı 
720 PRINT "I" 


Graphic Scr 








Listing Rainbow-Cad 


420 WINDOW #1 FULL 
430 WINDOW #1 PLACE 70,100 
440 WINDOW #1 OPEN 


470 OPEN #2 WINDOW 2 
480 SCREEN #2 GRAPHICS 230 FIXED,170 FIXED INFORMAT 


490 WINDOW #2 TITLE "Instructions" 
500 WINDOW #2 FULL 
PLACE 3,10 


530 WINDOW #1 MOUSE 5 
540 WINDOW #2 MOUSE 3 


INTRO 


590 SET FONT (2) 

600 SET POINTS(10) 

610 PRINT AT(5;2)"We proudly present "” 
620 SET FONT (3) 

630 SET POINTS (72) 

640 SET EFFECTS (&X0000011) 

650 PRINT AT(5;6) "RAINBOW " 

660 SET EFFECTS (&X0000101) 


680 SET POINTS (72) 
690 PRINT AT(30;8) 
700 SET FONT (3) 

710 SET POINTS (72) 


730 SET FONT (2) 
SET POINTS(18) 


Um den Körper zu vergrößern, wählen 
wir die Funktion 3.3 an. 


Skalierung: 3:3;3 


Dann wählen wir die Funktion 7.5 an 
und schalten die Transformation- 
COPY ON. Nun wählen wir die Funk- 
tion 3.1 an und lassen das Objekt drei- 
mal um die Y-Achse rotieren: 


Y-Rotation: 1.: 10 Grad 
2.:20 Grad 
3.:40 Grad 


Nun lassen wir das Objekt noch einmal 
zeichnen. Das Ergebnis ist schon sehr 
beeindruckend. 


Wir vergrößern das Objekt noch 
zweimal: 


Skalierung: 1.3;1.3;1.3 
22:52 


Jetzt wird das Objekt gespeichert, 
Hierzu wählen wir die Funktion 5.1 an. 
Vielleicht hatten Sie noch ein paar klei- 
ne Probleme. Aber denken Sie daran: 
“Probieren geht über Studieren.“ 


Mit ein bißchen Übung werden auch 
Sie sehr komplexe Gebilde entwerfen 
können. 


(Thomas Mertens/jb) 




























"CAD"; 
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JOYCE/PCW 
DATABOX 


PC 1512/1640 
DATABOX 


Für alle: 


- So kommt Sound 


Bu CPC-Leckerbissen 
Artworx-Erwelterung 
Kalk ulationsprogramm 
Eintacher Farbwechsel 


und violon mehr. 
f J N 
BE - Zeichensatz verändern 
unter cpım 


2 PC-Themen: 


1 - Test: pc 2286 
- CAD-Programme 
N zum Abtippen 
] - Nouo Public-Domain- 
Software 





DATABOX ist der preiswerte Software-Service Ihrer Zeitschrift 
DATABOX enthält lauffähige Programme für Ihren Einsatz 


DATABOX lohnt sich auf jeden Fall - Monat für 


Monat 


EFT ErETEHFIFIERRF 


Wenn der Drucker fremdgeht 

Wollen Sie Einladungen zu Veranstaltungen mit dem Joyce-Drucker 
ausdrucken oder vielleicht einfach einen schönen Briefkopf entwerfen? 
Mit der Erweiterung Joyprint ist dies kein Problem. 


Charakter-Changer 

Mal eben ein Zeichen unter CP/M umdefinieren oder gar einen neuen 
Zeichensatz erstellen. Das Programm CHRCHA bietet Ihnen alles, was 
Sie dazu benötigen. 


Balkendiagramme unter LocoMail 

Komfortabler geht es nicht. Was unter LocoScript sehr umständlich ist, 
läßt sich mittels LocoMail sehr einfach gestalten. Wir bieten Ihnen zwei 
Versionen, jeweils eine für LocoScript | sowie für LocoScript Il. 


Bonusprogramm 
Als Bonusprogramm können Sie der Databoxdiskette das Programm 
Master Mind entnehmen. 


PC 1512/1640 


Schnell geschoben ist halb gewonnen. 

Schiebung macht den Meister! So jedenfalls könnte das Thema unseres 
BASIC2-Spieles lauten. SCHIEBEFIX PC verlangt Konzentration und 
Gedächtnis. 

Die dritte Dimension 

Ein tolles CAD-Programm für Ihren PC 1512/1640. Geben Sie die 
Punkte und Linien ein, Ihr PC macht eine dreidimensionale Grafik 
daraus. RAINBOW-CAD enthält viele Funktionen, darunter automati- 
sches Drehen der Grafik. 

Und er dreht sich doch! 

Kennen Sie ihn noch, den vertrackten Würfel, dem es gelang, die halbe 
Welt von der Arbeit abzuhalten? Wir haben für Sie eine in BASIC ge- 
schriebene Simulation, die es Ihnen erlaubt, alle Drehungen des 
Würfels nachzuvollziehen. 


Einzelbezugspreis für DATABOX: 
PCW - 3-Zoll-Disk. PC -5 1/4-Zoll-Disk. 








24,- DM (Unverbindliche Preisempfehlung) 
Wenn Sie über den DMV-Verlag bestellen, gilt folgendes: 


Inland: Ausland: 





Einzelpreis 24,— DM Einzelpreis 24,—- DM 
zzgl, Versandkosten 4,— DM zzgl, Versandkosten 6,- DM 
Endpreis 28,—- DM Endpreis 30,- DM 





Das DATABOX-Abo kostet: 

Als Diskette für 1/2 Jahr (6 ee aa 
Im Inland und West-Berlin ........ 
Im europäischen Ausland .........-- 
Im außereuropäischen Ausland 


Bitte benutzen Sie die Bestellkarte 


DMV-Verlag - Postfach 250 - 3440 Eschwege 






Die Trickkiste: Aufräumen mit Bedacht 

Irgendwann kommt der Zeitpunkt, an dem die Festplatte voller Dateien 
ist, die man schon lange nicht mehr braucht. Was also tun? Ein 'DEL 
*,*" endet zum Glück in einer Sicherheitsabfrage, aber jedes File ein- 
zeln löschen ist auch nicht das wahre. Die Lösung? 'LOESCH.PAS' - 
Löschen mit System. Auch als lauffähige .EXE- Datei vorhanden. 


Bonusprogramm: VTRAINER 

Ein komfortabler Vokabeltrainer, geschrieben in Turbo Pascal wartet 
hier auf Sie. Die Vokabeln können eingegeben, abgespeichert und gela- 
den, abgefragt und aufgelistet werden. Das Programm wird über Pull- 
down-Menüs gesteuert, ist also einfach zu bedienen. Ein tolles Pro- 
gramm, nicht nur für Schüler. 


Als Diskette für 1 Jahr (12 Lieferungen) 

ING INTIHERHURG-VVGREÄREHETSren sn nnase ss cunsnssneasa seen rersanrerrangeen 
Im europäischen Ausland ........- 

Im außereuropäischen Ausland 
Bitte benutzen Sie für Ihre Bestellung die Abo-Karte. 





Zahlungshinwelse: 
Am einfachsten por Vorkasse (Verrechnungsscheck) oder als Nachnahme zuzüglich der Nach- 
nahmegebühr, (Bei Lieferungen ins Ausland ist Nachnahme nicht möglich.) 


Widerrufsrecht: 

Wir garantieren jedem Abonnenten das Recht, seine Bestellung innerhalb einer Woche nach Ab- 
schiuß schriftlich beim DMV-Verlag, Postfach 250, 3440 Eschwege, zu widerrufen, Die rechtzeitige 
Absendung des Widerrufschreibens genügt zur Fristwahrung. 
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SET EFFECTS OFF 
760 PRINT AT(30;14)"von Thomas Mertens" 
770 SET MODE 1 

780 STREAM #2 

790 

800 FOR i=1 TO 10000 

810 LABEL wait 

820 a$=INKEY$:IF a$="" THEN NEXT 


PRINT AT(2;3)"1 - Rotation“ 
1630 PRINT AT(2;4)"2 - Translation“ 
1640 PRINT AT(2;5)"3 - Skalierung“ 
1650 PRINT AT(2;6)"9 - RETURN" 

1660 

1670 LABEL menü_3 

1680 a$=INKEY$ 

1690 IF a$="1" THEN GOTO rotate 





830 1700 IF a$="2" THEN GOTO translate 
840 CLS #1 1719 IF a$="3" THEN GOTO scale 
850 STREAM #2 1720 IF a$="9" THEN GOTO menue 
860 1730 GOTO menü_3 

870 'x22=% Hauptmenü #*#==# 1740 

880 1750 LABEL datei 

890 WINDOW #2 OPEN 1760 

900 1770 CLS 

910 LABEL menue 1780 SET EFFECTS(&X0000001) 
920 1790 PRINT AT(2;1)"Datei" 

930 CLS 1800 SET EFFECTS OFF 


940 SET FONT(2):SET POINTS(10) 

950 SET EFFECTS(&X0000001) 

960 PRINT AT(2;1)"Hauptmenü" 

970 SET EFFECTS OFF 

980 PRINT AT(2;3)"1 - Punkt-Edit" 

990 PRINT AT(2;4)"2 - Linie-Edit" 

1000 PRINT AT(2;5)"3 - Transformation" 
1010 PRINT AT(2;6)"4 - AUTO-LOOP" 

1020 PRINT AT(2;7)"S - Datei" 

1030 PRINT AT(2;8)"6 - Zeichen" 

1040 PRINT AT(2;9)"7 - Optionen" 

1050 PRINT AT(2;10)"8 - AUTO-Dimensionierung” 
1060 

1070 LABEL auswahl 

1080 

1090 a$=INnkKEY$ 


1810 PRINT AT(2;3)"1 - LOAD Frame" 
1820 PRINT AT(2;4)"2 - SAVE Frame" 
1830 PRINT AT(2;5)"3 - MERGE Frame" 
1840 PRINT AT(2;6)"4 - nEw 

1850 PRINT AT(2;7)"5 - EXIT" 

1860 PRINT AT(2;8)"9 - RETURN" 

1870 

1880 LABEL menü_5 

1890 a$=InKEY$ 

1900 IF a$="1" THEN GOTO load_frame 
1910 IF a$="2" THEN GOTO save_frame 
1920 IF a$="3" THEN GOTO merge_frame 
1930 IF a$="4" THEN GOTO new_frame 
1940 IF a$="5" THEN GOTO exit 

1950 IF a$="9" THEN GOTO menue 

1960 GOTO menü_5 





1100 IF a$="1" THEN GOTO edit_punkt 1970 

1110 IF a$="2" THEN GOTO edit_linie 1980 

1120 IF a$="3" THEN GOTO transform 1990 LABEL optionen 
1130 IF a$="4" THEN GOTO auto_1oop 2000 

1140 IF a$="5" THEN GOTO datei 2010 CLS 


1150 IF a$="6" THEN GOTO draw 
1160 IF a$="7" THEN GOTO Optionen 
1170 IF a$="8" THEN GOTO auto_dim 
1180 GOTO auswahl 


2020 SET EFFECTS(8&X0000001) 

2030 PRINT AT(2;1)"Option" 

2040 SET EFFECTS OFF 

2050 PRINT AT(2;3)"1 - Strichart" 


1190 2060 PRINT AT(2;4)"2 - Strichstärke" 

1200 '*»##%* Untermenüs sazaz 2070 PRINT AT(2;5)"3 - Strichenden" 

1210 2080 PRINT AT(2;6)"4 - Screen" 

1220 LABEL edit_punkt 2090 PRINT AT(2;7)"5 - Transformation-Ccopy" 
1230 2100 PRINT AT(2;8)"6 - SET Mode" 

1240 CLS 2110 PRINT AT(2;9)"9 - RETURN" 


1250 SET EFFECTS(&X0000001) 

1260 PRINT AT(2;1)"Punkt Edit" 

1270 SET EFFECTS OFF 

1280 PRINT AT(2;3)"1 - Punkt definieren“ 
1290 PRINT AT(2;4)"2 - Punkt neu-definieren" 
1300 PRINT AT(2;5)"9 - RETURN" 

1310 

1320 LABEL menü_l 

1330 a$=INnKEY$ 

1340 IF a$="1" THEN GOTO def_punkt 

1350 IF a$="2" THEN GOTO new_def_punkt 


2120 

2130 LABEL menü_6 

2140 a$=INnKEY$ 

2150 IF a$="1" THEN GOTO line_style 
2160 IF a$="2" THEN GOTO line_width 
2170 IF a$="3" THEN GOTO Nine_end 
2180 IF a$="4" THEN GOTO clear_screen 
2190 IF a$="5" THEN GOTO Option_transform 
2200 IF a$="6" THEN GOTO set_mode 
2210 IF a$="9" THEN GOTO menue 

2220 GOTO menü_6 


1360 IF a$="9" THEN GOTO menue 2230 

1370 GOTO menü_l 2240 

1380 2250 REM ***## UNTERPROGRAMME sz22# 

1390 LABEL edit_1inie 2260 

1400 2270 REM **=s= Unterprogramme des i., Menüpunktes ##*# 
1410 CLS ® 


1420 SET EFFECTS(&X0000001) 2280 
1430 PRINT AT(2;1)"Linie Edit" 2290 LABEL def_punkt 
1440 SET EFFECTS OFF 2300 


1450 PRINT AT(2;3)"1 - Linie definieren " 
1460 PRINT AT(2;4)"2 - Linie neudefinieren" 


2310 IF p_anz=1000 THEN s=ALERT 3 TEXT "PUNKTESPEIC 
HER IST VOLL " BUTTON RETURN " Okay ":GOTO men 


1470 PRINT AT(2;5)"9 - RETURN" ü_l 
1480 2320 STREAM 82 
1490 LABEL menü_2 2330 CLS 


1500 a$=INnKEY$ 
1510 IF a$="1" THEN GOTO def_linie 


2340 SET FONT(2) 
2350 SET POINTS(10) 








1520 IF a$="2" THEN GOTO new_def inte 2360 PRINT AT(2;1)"Definition des Punkt : ";p_anz 
1530 IF a$="9" THEN GOTO menue 2370 INPUT AT(2;3)"x-Koordinate : ";p(p_anz,O) 
1540 GOTO menü_2 2380 INPUT AT(2;4)"y-Koordinate : "ıp(p_anz,l) 
1550 Es 2390 INPUT AT(2;5)"z-Koordinate : ";p(p_anz,2) 
1560 LABEL transform 2400 p_anz=p_anz+1 

1570 2410 GOTO edit_punkt 

1580 CLS 2420 

1590 SET EFFECTS(&X0000001) 2430 LABEL new_def_punkt 

1600 PRINT AT(2;1)"Transformation" 2440 







1610 SET EFFECTS OFF STREAM #2 
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2460 
2470 
2480 
2490 
2500 


2510 


2520 


2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 


2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 


2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 


2880 


2890 


2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 


3030 





3040 


3050 


3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 





cLS 

SET FONT(2) 

SET POINTS(10) 

PRINT AT(2;1)"Redefinierung eines Punktes” 
PRINT AT(2;3)"Bitte geben Sie die Nummer des zZ 
u" 

INPUT AT(2;4)"korrigierenden Punktes ein : ";p 
_nummer 

IF p_nummer>p_anz THEN s=ALERT 3TEXT "Punkt ro 
ch nicht editiert *“ BUTTON RETURN "OKAY":GOTO 
edit_punkt 


CLS 
PRINT AT(2;1)"Redefinierung eines Punktes” 
INPUT AT(2;3)"x-Koordinate : ";p(p_nummer,O) 






INPUT AT(2;4)"y-Koordinate : “ 
INPUT AT(2;5)"z-Koordinate 
GOTO edit_punkt 


p(p_nummer ,1) 
";p(p_nummer,2) 
REM ##2% Unterprogramme des 2.Menüpunktes *###** 
LABEL def_linie 


IF I_anz=1000 THEN s=ALERT 3 TEXT "LINIENSPEIC 


HER IST VOLL !" BUTTON RETURN "OKAY":GOTO edit 
_!inie 
STREAM #2 


SET FONT(2) 
SET POINTS(10) 
cLs 


PRINT AT(2;1)"Definition der Linie "ıll_anz 
INPUT AT(2;3)"Anfangspunkt “;ıll_anz,!) 
INPUT AT(2;4)"Endpunkt ";itl_anz,2) 


FOR i=1 TO 2 
IF I(1_anz,i)>p_anz THEN s=ALERT 3 TEXT "FEHL 


ER : Punkt noch nicht definiert !" BUTTON RETU 
RN "OKAY":GOTO edit_linie 
NEXT 


l_anz=I_anztl 
GoOTO edit_linie 


LABEL new_def_linie 


STREAM #2 

cLS 

SET FONT(2) 

SET POINTS(10) 

PRINT AT(2;1)"Redefinierung einer Linie" 

PRINT AT(2;3)"Bitte geben Sie die Nummer der z 


u 

INPUT AT(2;4)"korrigierenden Linie ein : ";1!_n 
ummer 

IF I_nummer>1i_anz THEN s=ALERT 3TEXT "Linie ro 
eh nicht editiert " BUTTON RETURN "OKAY" :GOTO 
edit_iinie 

cLS 

PRINT AT(2;1)"Redefinierung einer Linie” 

INPUT AT(2;3)"Anfangspunkt ";iItl_nummer,1) 


INPUT AT(2;4)"Endpunkt ";101_nummer,?2) 

GOTO edit_linie 

REM ##== Unterprogramme des 3.Menüpunktes === 
LABEL rotate 

STREAM #2 

cLSs 

IF p_anz=0 THEN s=ALERT 3 TEXT "Kein Frame im 
Speicher !" BUTTON RETURN "OKAY":GOTO transfor 

m 

IF op_tr=1 AND p_anz>498 THEN s=ALERT 3 TEXT " 

Speicher zu klein !" BUTTON RETURN "OKAY":GOTO 
transform 

IF op_tr=1 AND I_anz>498 THEN s=ALERT 3 TEXT " 

Speicher zu klein !" BUTTON RETURN "OKAY" :GOTO 
transform 

axis=ALERT 1} TEXT "Rotationsachse BUTTON 
X-Achse ","Y-Achse" ,"Z-Achse" 


SET FONT(2) 
SET POINTS(10) 


ON axis GOTO x_axis,y_axis,z_axis 
LABEL x_axis 
PRINT AT(2;1)"ROTATION UM X-ACHSE" 


PRINT AT(2;2)"Bitte geben Sie den Winke) ein,u 
m" 
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3150 
3160 
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3230 
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3570 
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3610 
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3640 
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3680 
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PRINT AT(2;3)"den das Frame rotieren so1l]." 
INPUT AT(2;4)"Alpha ";alpha 

transi(1l,1)=1 
transi(2,2)=COS(alpnha):transi(3,2)=-SIn(alpha) 
trans! (2,3)=SIn(alpha):trans1(3,3)=COS(alpha) 
GOSUB vektor_matrix_muitp 

GOSUB erase_matrix 

GOTO transform 


LABEL y_axis 


PRINT AT(2;1)"ROTATION UM Y-ACHSE" 

PRINT AT(2;2)"Bitte geben Sie den Winke] ein,u 
m" 

PRINT AT(2;3)"den das Frame rotieren soll." 
INPUT AT(2;4)"Alpha ";alpha 
trans!(1,1)=COS(alpha):transi(3,1)=SIN(alpha) 
transi(2,2)=1 
trans!1(1,3)=-SIn(alpha):trans?(3,3)=COS(alpha) 
GOSUB vektor_matrix_multp 

GOSUB erase_matrix 

GOTO transform 


LABEL z_axis 


PRINT AT(2;1)"ROTATION UM Z-ACHSE" 

PRINT AT(2;2)"Bitte geben Sie den Winkel] ein,u 
m“ 

PRINT AT(2;3)"den das Frame rotieren sol." 
INPUT AT(2;4)"Alpha ";alpha 
trans!(1,1)=COS(alpha):trans!(2,1)=-SIN(alpha) 
transI(1,2)=SIN(alpha):trans](2,2)=COS(alpha) 
trans1(3,3)=1 

GOSUB vektor_matrix_multp 

GOSUB erase_matrix 

GOTO transform 


LABEL translate 


STREAM #2 

cLS 

IF p_anz=DO THEN s=ALERT 3 TEXT "Kein Frame im 

Speicher !" BUTTON RETURN "OKAY":GOTO transfor 

m 

IF op_tr=1 AND p_anz>495 THEN s=ALERT 3 TEXT " 

Speicher zu klein !" BUTTON RETURN "OKAY":GOTO 
transform 

IF op_tr=1 AND I_anz>498 THEN s=ALERT 3 TEXT " 

Speicher zu klein !" BUTTON RETURN "OKAY":GOTO 


transform 
SET FONT(2) 
SET POINTS(10) 
PRINT AT(1;1)"TRANSLATION” 
PRINT AT(1;2)"Bitte geben Sie die Werte für di 
e Trans-" 
PRINT AT(1;3)"lation auf den Achsen ein." 


INPUT AT(1;4)"X-Achse "ıx_achse 
INPUT AT(1;5)"Y-Achse ";y_achse 
INPUT AT(1;6)"Z-Achse "iz_achse 


IF op_tr=1 THEN GOTO translate_sub 


FOR count=0 TO p_anz-1l 
plcount,O)=p(count,O)+x_achse 
p(eount,1)=p(count,1)+y_achse 
plcount,2)=p(count,2)+z_achse 

NEXT count 

GOTO transform 


LABEL translate_sub 


FOR count=p_anz TO (2*p_anz)-1 
p(count,O)=p(count-p_anz,O)+x_achse 
p(count,1)=p(count-p_anz,l)+y_achse 
plcount,2)=p(count-p_anz,2)+z_achse 

NEXT count 


p_anz=p_anz#2 


GOSUB Tine_copy 
GOTO transform 


LABEL scale 
STREAM #2 

cLS 

SET FONT(2) 
SET POINTS(10) 
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JOYCE - mehr als ein Text- 
system 


Die Autoren, in der JOYCE-Szene keine 
Unbekannten, haben auf über 300 Sei- 
ten alles Wissenswerte über die “ande- 
re Seite“ der PCWs zusammengetra- 
gen. Anfänger wie Profis, Anwender wie 
Programmierer finden in diesem Buch 
einen reichen Schatz an Tips und Tricks 
sowie ein unentbehrliches Nachschla- 
gewerk. Erstmals wird auch in einem 
Buch zum PCW ein "heißes Eisen“ aus- 
führlich behandelt: die Hardware. Die- 
ses Kapitel zeigt völlig neue Möglichkei- 
ten des JOYCE - so wird beispielswei- 
se der Anschluß eines Sprachsynthesi- 
zers und der Selbstbau einer Schnitt- 
stelle besprochen. 

Ausführliche Kapitel über BASIC und 
LOGO erlauben Ihnen, diese Sprachen 
auszureizen: Anfänger, die sich erst- 
mals in der Programmierung versuchen 
wollen, finden durch sinnvolle kurze Bei- 
spielprogramme wertvolle Unterstüt- 


zung. Ein besonderes “Schmankerl“ ist 


das große Extra-Kapitel zur JETSAM- 
Dateiverwaltung! 


Aus dem Inhalt: 


Sprachen: 

- LOGO als Grafiker 

— komplette Befehlsübersicht 

- BASIC: Erläuterungen aller Befehle 
mit Beispielprogrammen 

—- JETSAM: Generator für JETSAM- 
Verarbeitung 

— Kurzübersicht: Turbo Pascal & C 


Programmierhilfen, Interna, Tips und 

Tricks: 

- Steuercode-Tabellen für Bildschirm 
und Drucker 

- XBIOS-Routinen 

- OUTs und POKESs unter BASIC 


Hardware 

— Speichererweiterung 

— Zweitlaufwerk 

— Druckkopfreinigung 

— Bildschirminverter 

- Schnittstelle am Expansionsport 
— Sprachsynthesizer 


JOYCE - mehr als ein Text- 
system 

Bestellnummer: 404 

324 Seiten mit farbigen Abbildungen 


Hardcover, gebunden 
ISBN 3-926177-02-0 


Bitte benutzen Sie die Bestellkarte. 


DMV-Verlag - Postfach 250 - 3440 Eschwege 


Das Buch zum JOYCE! 


Alle Besitzer eines PCW 8256/8512/9512, die 
ahnten, daß der Horizont ihres Computers weit 
über LocoScript hinausgeht, finden jetzt die 
Bestätigung: Br 





Platinenlayouts im Buch 


Weiterhin erhältlich: 
— doppelte Platine, geprüft 
- 3°-Diskette mit allen Dateien und Programmen 


Bestellkarte im Buch 


69,- DM 

Wenn Sie über den DMV-Besteliservice bestellen, gilt folgendes: 
Inland: Ausland: 

Einzelpreis 69,- DM Einzelpreis 

zzgl. Versandkosten 4,— DM zzgl. Versandkosten 


73,- DM Endpreis 





Endpreis 


(DARK. 























D_PC-Programm  } 


3940 


3950 


3960 


3970 
3980 


3990 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
4290 
4300 
4310 
4320 
4330 
4340 
4350 
4360 
4370 
4380 
4390 
4400 
4410 
4420 
4430 
4440 
4450 
4460 
4470 
4480 
4490 
4500 
4510 
4520 
4530 
4540 
4550 
4560 
4570 
4580 
4590 
4600 
4610 
4620 
4630 
4640 
4650 
4660 
4670 
4680 
4690 











4700 
4710 
4720 
4730 





IF p_anz=0 THEN s=ALERT 3 TEXT "Kein Frame im 


Speicher !" BUTTON RETURN "OKAY":GOTO transfor 

m 

IF op_tr=1 AND p_anz>498 THEN s=ALERT 3 TEXT " 
Speicher zu klein !" BUTTON RETURN "CKAY":GOTO 
transform 

IF op_tr=1 AND ]_anz)498 THEN s=ALERT 3 TEXT " 
Speicher zu klein !" BUTTON RETURN "OKAY":GOTO 
transform 


PRINT AT(1;1)"SKALIERUNG” 

PRINT AT(1;3)"Bitte geben Sie die Faktoren für 
die” 

PRINT AT(1;4)"Skalierung ein (l=unverändert). 


INPUT AT(1;5)"X-Achse : ";x_scale 
INPUT AT(1;6)"Y-Achse :; ";y_scale 
INPUT AT(1;7)"Z-Achse : ";z_scale 


trans\(1,1)=x_scale 
transI(2,2)=y_scale 
trans] (3,3)=z_scale 

GOSUB vektor_matrix_multp 
GOSUB erase_matrix 

GOTO transform 


LABEL vektor_matrix_multp 
IF op_tr=2 THEN GOTO sub_vektor 


FOR count=p_anz TO (2*p_anz)-1 

FOR i=1 TO 3 

FOR t=1 TO 3 

zw_er=zw_erttransi(t,i)*p(count-p_anz,t-1) 

NEXT t 

plcount,i-1)=zw_er 

zw_er=0 

NEXT 1 

NEXT count 


p_anz=p_anz*2 
LABEL Tine_copy 
IF I_anz=0 THEN GOTO transform 


FOR count=]_anz TO ((2*1_anz)-1) 
FOR t=1 TO 2 
I(count,t)=1(count-I_anz,t)+(p_anz/2) 
NEXT t 
NEXT count 


l_anz=|_anz#2 
RETURN 
LABEL sub_vektor 


FOR count=0 TO (p_anz-1) 

FOR i=1 TO 3 
FOR t=1 TO 3 
zw_er=zw_er+trans\(t,i)*p(count,t-1) 
NEXT t 
plcount,i-1)=zw_er 
zw_er=0 
NEXT i 

NEXT count 


RETURN 

LABEL erase_matrix 
FOR 1=1 TO 4 

FOR t=1 TO 4. 

transi(i,t)=0 

NEXT t 
NEXT 1 
RETURN 
REM *### Unterprogramme des 4.Menüpunktes **** 


LABEL auto_loop 


„kein Frame im 
GOTO menue 


IF p_anz=0 THEN s=ALERT 3 TEXT 
Speicher !" BUTTON RETURN "Okay" 
WINDOW #1 OPEN 

STREAM #1 

out_stream=1 

loop=TRUE 
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GOSUB zeichnen 
alpha=10 
FOR loop_count=1 TO 3 


IF loop_count=1 THEN trans1(1,1)=1 

IF loop_count=1 THEN trans](2,2)=COS(alpha):tr 
ans](3,2)=-SIN(alpha) 

IF loop_count=1 THEN trans]1(2,3)=SIN(alpha):tr 
ans1(3,3)=COS(alpha) [ 


IF loop_count=2 THEN trans!(1,1)=COS(alpha):tr 
ans](3,1)=SIN(alpha) 

IF loop_count=2 THEN transl(2,2)=1 

IF loop_count=2 THEN trans!(1,3)=-SIN(alpha):t 
rans]1(3,3)=COS(alpha) 


IF loop_count=3 THEN trans](1,1)=COS(alpha):tr 
ans!(2,1)=-SIN(alpha) 

IF loop_count=3 THEN trans1I(1,2)= TRUE HEN: tr 
ans](2,2)=COS(alpha) 

IF loop_count=3 THEN trans1(3,3)=1 


FOR wdh=1 TO (360/alpha) 
GOSUB sub_vektor 
cLs #1 

GOSUB zeichnen 
NEXT wdh 

GOSUB erase_matrix 
NEXT loop_count 
WINDOW #2 OPEN 
STREAM #2 
loop=FALSE 

GOTO menue 


REM ##== Unterprogramme des 5.Menüpunktes *«+# 


LABEL load_frame 


IF p_anz>O THEN s=ALERT 3 TEXT "Speicher nicht 
LEER !" BUTTON RETURN "OKAY":GOTO datei 
wa=SELECTOR "Ös,FRM","" 

IF wa<>O THEN GOTO datei 


"Laden der Daten 


OPEN #5 ,INPUT SELPATH$S+SELFILES 

INPUT #5,testı$ 

INPUT #5,test2$ 

IF testi$<>"RAINBOW CAD I by T.Mertens" AND te 
StSC>CHRS(1) THEN s=ALERT 3 TEXT "Fehler in Da 
tei !" BUTTON RETURN "OKAY":GOTO datei 


INPUT #5,p_load 
FOR i=0 TO p_load 
FOR t=0 T0 2 
INPUT #5, p(i,t); 
NEXT t 
NEXT 1 
p_anz=p_load+l 
INPUT #5,1_load 
FOR i=0 TO 1_load 
FOR t=1 T0 2 
INPUT #5,1(i,t); 
NEXT t 
NEXT i 
I_anz=]_load+l 
CLOSE #5 
GOTO datei 


LABEL save_frame 


IF p_anz=0 THEN s=ALERT 3 TEXT "Kein Frame im 
Speicher !" BUTTON RETURN "OKAY":GOTO datei 
wa=SELECTOR "Ös.FRM","" 

IF wa<>0 THEN GOTO datei 


"Speichern der Daten 


OPEN #5,0UTPUT SELPATH$+SELFILES 
PRINT #5, "RAINBOW CAD I by T.Mertens"” 
PRINT #5,CHR$(1) 

p_real=p_anz-i 

PRINT #5,p_rea) 

FOR i=0 TO p_rea) 

FOR t=0 T0 2 

PRINT #5,p(i1,t); 
NEXT t 
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PRINT #5 
NEXT 1 
p_real=0 
I_reai=]_anz-i 
PRINT #5,)_rea) 
FOR i=0 TO 1I_real 
FOR t=1 TO 2 
PRINT #5,1(i,t); 
NEXT t 
PRINT #5 
NEXT 1 
I_real=0 
CLOSE #5 
GOTO datei 


LABEL merge_frame 


STREAM #2 

cLS 

SET FONT(2) 

SET POINTS(10) 

SET EFFECTS (8&X0000001) 

PRINT AT(2;1)"FRAME Merge" 

SET EFFECTS OFF 

PRINT AT(2;3)"wählen Sie nun nacheinander aus 


PRINT AT(2;4)“ - 
en soll" 

PRINT AT(2;5)“ - 
erden soll” 

PRINT AT(2;6)“ = 


1.Datei,die verknüpft werd 
2.Datei,die mit 1. verk. w 
Dateiname unter dem die ne 


PRINT AT(2;7)" gespeichert werden so 


GOSUB taste 


wa=SELECTOR "Ö#.FRM","" 
IF wa<>O THEN GOTO datei 
first_path$=SELPATH$ 
first_file$=SELFILE$ 
wa=SELECTOR "Ösz,FRM","" 
IF wa<>0 THEN GOTO datei 
secnd_path$=SELPATH$ 
secnd_file$=SELFILE$ 
wa=SELECTOR "Ö#r.FRM","" 
IF wa<>0 THEN GOTO datei 
third_path$=SELPATH$ 
third_file$=SELFILES 


"Analyse 


OPEN #3,INPUT first_path$+first_file$ 

INPUT #3,test_1$ 

INPUT #3,test_2$ 

INPUT #3,pl_load 

IF test_1$<>"RAINBOW CAD I by T,Mertens" OR te 
st_2$<>CHR$(1) THEN s=ALERT 3 TEXT "Kein RAINB 
OW CAD I - Frame" BUTTON RETURN "Okay" :CLOSE 
#3:GOTO datei 

OPEN #4,INPUT secnd_path$+secnd_file$s 

INPUT #4,test_i1$ 

INPUT #4,test_2$ 

INPUT #4,p2_load 

IF test_i$<>"RAINBOW CAD I by T.Mertens" OR te 
st_2$<>CHR$(1) THEN S=ALERT 3 TEXT "Kein RAINB 
OW CAD I - Frame" BUTTON RETURN "Okay”:CLOSE 
#3,#4:GOTO datei 

IF pl_load+p2_load+1>1000 THEN s=ALERT 3 TEXT 
"Frames zu komplex!" BUTTON RETURN "Okay":CLOS 
E #3,#4:GOTO datei 


OPEN #5,0UTPUT third_path$+third_files 
PRINT #5, "RAINBOW CAD I by T.Mertens” 
PRINT #5,CHR$(1) 
p_9es=pl_load+p2_load+l 
PRINT #5,p_ges 
FOR i=0 TO pl_load 
FOR t=0 TO 2 
INPUT #3,num; 
PRINT #5,num; 
NEXT t 
PRINT #5,”" 
NEXT i 
FOR i=0 TO p2_load 
FOR t=0 TO 2 
INPUT #4,num; 
PRINT #5,num; 
NEXT t 
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Narlıae 
Aeeebrı, “n 
e Rn "in "m 


hatın, 
= I 
= u 


PRINT #5,"" 
NEXT i 


INPUT #3,11_load 

INPUT #4,12_load 

IF I1_load+!2 load+1>1000 THEN s=ALERT 3 TEXT 
"Frames zu komplex" BUTTON RETURN "Okay":CLOSE 
#3,84,85:KILL third_path$+tnird_file$:GOTO da 
tei 


I_ges=]1_load+12_load+ı 
PRINT #5,)_ges 
FOR i=0 TO 11_load 
FOR t=1 TO 2 
INPUT #3,num; 
PRINT #5,num; 
NEXT t 
PRINT #5,"" 
NEXT i 
FOR i=0 TO 12_load 
FOR t=1 TO 2 
INPUT #4,num; 
ges_num=num+pl_load+1 
PRINT #5,ges_num; 
NEXT t 
PRINT #5,"" 
NEXT 1 
CLOSE #3,#4,#5 
s=ALERT 3 TEXT "MERGING erfolgreich abgeschlos 
sen !" BUTTON RETURN "OKAY" 
GOTO datei 


LABEL new_frame 


ask=ALERT 1 TEXT "Wollen Sie wirklich den","Sp 
eicher löschen ?" BUTTON RETURN "JA","NEIN" 

IF ask=2 THEN GOTO datei 

p_anz=O0 

I_anz=0 

GOTO datei 


LABEL exit 


asALERT 3 TEXT "wollen Sie das Programm 
lassen ?" BUTTON RETURN " Ja "”,"Nein" 
IF a=1 THEN END 

IF a=2 THEN GOTO menü_5 


" "ver 


REM =#=2= Unterprogramme des 6,Menüpunktes *sr* 


LABEL draw 


IF p_anz=0O THEN s=ALERT 3 TEXT "Es ist noch ke 


in Frame "‚"definiert !" BUTTON RETURN "OKAY": 
WINDOW #2 OPEN:STREAM #2:GOTO menue 
Out=ALERT 3 TEXT "Ausgabe auf : " BUTTON RETUR 


N "Monitor" ,"Drucker"” 
IF out=2 THEN GOTO print_out 


WINDOW #1 OPEN 

STREAM #1 

IF screen_clear=1 THEN CLS 
out_stream=1 

GOSUB zeichnen 

GOTO menue 


LABEL print_out 


s=ALERT 3 TEXT "Bitte legen Sie die GEM-Paint 
Disk in”,"das gleiche Laufwerk,von dem ","Sie 
GEM aus geladen haben." BUTTON RETURN "OKAY" 
OPEN #5 DEVICE 21 

USER #5 SPACE 11400,10000 

out_stream=5 

GOSUB zeichnen 

GOTO menue 


LABEL zeichnen 


Zeichnen der Punkte 


FOR i1=0 TO p_anz-1 
x=p(1,0) 
y-p(i1,1) 
z=p(i,2) 
x_neu =(300*x+100*z2)+5700 
y_neu =(210*y+100*2)+2500 
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IF x_neu<O OR x_neu>11200 THEN GOTO next_1 
IF y_neu<O OR y_neu>5000 THEN GOTO next_\ 
PLOT #out_stream,x_neu;y_neu 

LABEL next_1 
NEXT ij 


IF I_anz=0 THEN GOTO ask_key 
"Zeichnen der Linien 


FOR i=0 TO I_anz-ı 
xı1=p(1(1,1),0) 
yl=p(1(i,1),ı) 
zi=p(1(1,1),2) 
x2=p(1(i1,2),0) 
y2=p(1(i1,2),ı) 
22=p(1(i,2),2) 


xl_neu=(300%x1+100*21)+5700 
yl_neu=(210*y1+100*21)+2500 
x2_neu=(300*x2+100*22)+5700 
y2_neu=(210%4y2+100*z2)+2500 


IF x1_neu<O OR xl_neu>11200 THEN GOTO next_2 
IF yl_neu<fO OR yl_neu>5000 THEN GOTO next_2 
IF x2_neu<0O OR x2_neu>11200 THEN GOTO next_2 
IF y2_neu<O OR y2_neu>5000 THEN GOTO next_2 


LINE #out_stream,xl_neu;jyl_neu,x2_neu;y2_neu 


STYLE style_number WIDTH width_number START ar 
t_of_end END art_of_end 


LABEL next_2 
NEXT i 


LABEL ask_key 


IF out_stream=5 THEN CLOSE #5:G0TO menue 
IF loop=TRUE THEN RETURN 
SET FONT(2) 
SET POINTS(10) 
PRINT AT(1;1)"Taste drücken !" 
REPEAT 
a$=INKEY$ 
UNTIL a$c>"" 
WINDOW #2 OPEN 
STREAM #2 
RETURN 


REM #*=*» Unterprogramme des 7.Menüpunktes zxs#% 
LABEL line_style 


STREAM #2 
cLSs 


SET FONT(2) 

SET POINTS(10) 

PRINT AT(1;1)"Linienart" 

PRINT AT(1;3)"Bitte geben Sie nun die Art der" 
PRINT AT(1;4)"Linierung ein (1-6 ; siehe Linie 
nmenü)" 

INPUT AT(1;5)"Nummer : ";style_number 

IF style_number<l OR style_number>6 THEN GOTO 
line_style 

GOTO optionen 


LABEL line_width 


STREAM #2 
cıLs 


SET FONT(2) 

SET POINTS(10) 

PRINT AT(1;1)"Linienbreite" 

PRINT AT(1;3)"Bitte geben Sie nun die Breite ) 
er" 

PRINT AT(1;4)"Linierung ein (1,3,5,7)" 

INPUT AT(1;5)"Nummer : ";width_number 

IF width_number=1 OR widtn_number=3 OR width_n 
umber=5 OR width_number=7 THEN GOTO optionen E 
LSE GOTO Iine_width 


LABEL 1Iine_end 


STREAM #2 
cLS 


SET FONT(2) 
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7880 SET POINTS(10) 

7890 PRINT AT(1;1)"Linienenden" 

7900 PRINT AT(1;3)"Bitte geben Sie nun die Art der" 

7910 PRINT AT(1;4)"Linienenden ein (0-2)"“ 

7920 INPUT AT(1:5)"Nummer : ";art_of_end 

7930 IF art_of_end<O OR art_of_end>2 THEN GOTO line 
_end ELSE GOTO optionen 








































































7940 

7950 LABEL clear_screen 

7960 

7970 screen_clear=ALERT 3 TEXT "Soll das Grafikfens 
ter beim wieder-","holten zeichnen gelöscht we 
rden?" BUTTON RETURN "JA", "NEIN" 

7980 GOTO optionen 

7990 

8000 LABEL option_transform 

8010 

8020 Op_tr=ALERT 3 TEXT "Transformations-COPY" BUTT 
ON RETURN "ON”," OFF " 

8030 GOTO optionen 

8040 

8050 LABEL set_mode 

8060 

8070 mode_typ=ALERT 3 TEXT "Write-Mode : " BUTTON R 
ETURN "AND-Modus" , "XOR-Modus” 

8080 

8090 IF mode_typ=1 THEN SET #1 MODE(1) 

8100 IF mode_typ=2 THEN SET #1 MODE(3) 

8110 GOTO optionen 

8120 

8130 '*s#= Unterprogramme des 8,Menüpunktes #sz#x 

8140 

8150 LABEL auto_dim 

8160 

8170 IF p_anz=O THEN S=ALERT 3 TEXT "Kein Frame im 
Speicher !" BUTTON RETURN "OKAY" :GOTO menue 

8180 

8190 IF p_anz*2>1000 OR l_anz#2+p_anz>1000 THEN s=A 
LERT 3 TEXT "Nicht genug Speicher !" BUTTON RE 
TURN "OKAY":GOTO menue 

8200 

8210 s=ALERT 3 TEXT "Sind Sie sicher ? " BUTTON RET 
URN "Ja”,"Nein“ 

8220 IF s=2 THEN GOTO menue 

8230 

8240 STREAM #2 

8250 CLS 

8260 PRINT AT(2;1)"Automatisches Dimensionieren" 

8270 PRINT AT(2;3)"Bitte geben Sie die gewünschte " 

8280 PRINT AT(2;4)"Tiefe des 3D-Objektes ein : "; 

8290 INPUT tiefe 

8300 

8310 FOR count=p_anz TO (p_anzs#2)-ı 

8320 FOR i=0 TO ı 

8330 plcount, i)=p(count-p_anz,i) 

8340 NEXT i 

8350 plcount,2)=p(count-p_anz,2)+tiefe 

8360 NEXT count 

8370 

8380 p_anz=p_anz+2 

8390 

8400 FOR count=1_anz TO ((2*1_anz)-ı) 

8410 FOR t=1 TO 2 

8420 l(ceount,t)=1(count-1_anz,t)+(p_anz/2) 

8430 NEXT t 

8440 NEXT count 

8450 

8460 a=|_anz*2 

8470 FOR 1=0 TO (p_anz/2)-ı 

8480 a=atl 

8490 1(a,l)=i 

8500 1(a,2)=i+(p_anz/2) 

8510 NEXT 1 

8520 

8530 I_anz=a+l 

8540 

8550 

8560 GOTO menue 

8570 

8580 REM ses## Hilfsprogramme sza=xz 

8590 

8600 LABEL taste 

8610 

8620 STREAM #2 

8630 SET EFFECTS OFF 

8640 PRINT AT(2;10)"Bitte drücken Sie eine Taste !" 

8650 REPEAT 

8660 a$s=INnKEY$ 

8670 UNTIL a$<>""” 

8680 RETURN 
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Und er dreht 
sich doch! 


Rubiks Zauberwürfel als 
BASICZ2-Simulation 


Es ist zwar schon einige Zeit her, daß ein würfelför- 
miges, nach allen Seiten drehbares kleines Wunder- 
ding die Jugend und das Alter in aller Welt an den 
Rand der Verzweiflung brachte, trotzdem beschäfti- 
gen sich heutzutage immer noch Enthusiasten mit 
Professor Rubiks Denksportwürfel. 


Rubiks Würfel hat ja inzwischen auch schon einige Nach- 
folger bekommen, man erinnere sich an die Tonne, die 
Schlange und nicht zuletzt an den letzten Nervenhammer 
aus der ungarischen Denksportschmiede, die Uhr mit 18 
Zifferblättern. 


Ob diese Kreationen jemals ein Ende nehmen, ist ungewiß 
(freut man sich doch klammheimlich auf die nächste 
Schöpfung aus dem Hause Rubik). 


Am besten läßt sich das Rätsel des Würfels logisch lösen, 
und da ein Computer nicht nur zum Programmieren oder 
zum Sammeln falschgeschriebener Englischvokabeln die- 






































REM Programm Zauberwürfel, Vers. 2.0 (Mai 1989) 
REM geschrieben von: Horst-D. Steinwart,Süpplingen 
CLEAR RESET 

CLOSE WINDOW 2 

CLOSE WINDOW 3 

FOR i=1 TO 4: CLOSE #i:NEXT 

OPEN #1 WINDOW 1 

SCREEN GRAPHICS 640 FIXED, 200 FIXED 

WINDOW FULL 

WINDOW TITLE "Zauberwür fe N (Vers.2.0)" 
WINDOW OPEN 


LABEL einleitung 

GOSUB hintergrund 

GOSUB farbe 

GOSUB sichtflächen 

GOSUB umrandungen 

FOR i=1 TO 2 

PRINT AT(50;4) COLOR(i) FONT(2) POINTS(36) "ZAUBER 


PRINT AT(50;6) COLOR(1+9) FONT(2) POINTS(36) "WÜRF 
EL" 

GOSUB anfang_a:FOR j=1 TO 500:NEXT 3j 

GOSUB anfang_b:FOR j=1 TO 500:NEXT J 

GOSUB anfang_c:FOR j=1 TO 500:NEXT J 

NEXT 1 

PRINT AT(50;10) "wählen Sie !" 

PRINT AT(50;12) "<S> Spielregel" 

PRINT AT(50;13) "<w> Würfel (geordnet) 

PRINT AT(50;14) "<X> Würfel (verdreht) 

PRINT AT(50;16) "ESC = Programmende" 

LABEL auswahl 

a$=INKEY$ 

IF a$="" THEN GOTO auswahl 

IF a$=CHR$(27) THEN GOTO ende 

IF a$="Ww" OR a$="w" THEN GOTO programmablauf 
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Kennen Sie ihn noch? Der Würfel von Professor Rubik als ansprechend: 
BASIC2-Version. Aber Vorsicht, Suchtgefahr! 


nen soll, nehmen wir ihn einfach als Experimentiermodell 


Das Programm simuliert Rubiks Würfel mit allen bewegli 
chen Teilen, das heißt, jede Seite läßt sich einzeln in jed« 
Richtung drehen. Für diejenigen, die sich mit dem Würfe 
noch nicht so sehr auskennen, befinden sich Spielhinweis: 
innerhalb des Programms, die den Einstieg in dies: 
schweißtreibende Materie erleichtern. 


Im großen und ganzen ist damit alles Wesentliche gesagt 
jetzt sollten Sie nur noch aufpassen, daß Ihnen der Würfe 
nicht gesundheitlich schadet. 


(Horst- Dieter Steinwart/jb 














IF a$="xX" OR a$="x" THEN GOTO drehauswahl 
IF a$="S" OR a$="s" THEN GOTO spielregel 
GOTO auswahl 





LABEL programmablauf 
GOSUB hintergrund 
GOSUB farbe 

GOSUB sichtflächen 
GOSUB umrandungen 
GOTO wahlmenue 



















LABEL hintergrund 
BOX 0;0,8500,6500 COLOR(5) FILL 
SET MODE(2) 

RETURN 


LABEL umrandungen 

LINE 1000;3400,3400;3400,3400;1000 WIDTH 3 
LINE 3400;3400,4300;4300 WIDTH 3 

LINE 1800;1000,1800;3400,2700;4300 WIDTH 
LINE 2600;1000,2600;3400,3500;4300 WIDTH 
LINE 1000;1800,3400;1800,4300;2700 WIDTH 
LINE 1000;2600,3400;2600,4300;3500 WIDTH 
LINE 1300;3700,3700;3700,3700;1300 WIDTH 
LINE 1600;4000,4000;4000,4000;1600 WIDTH 
LINE 1000;1000,3400;1000,4300;1900,4300;4300 WIDTH 
3 

LINE 4300;4300,1900;4300,1000;3400,1000;1000 WIDTH 


BO W WW WW 


3 
RETURN 


LABEL farbe 

al=2:a2=2:a3=2:a4=2:a5=2:a6=2:a7=2:a8=2:a9=2 
b1=3:b2=3:b3=3:b4=3:b5=3:b6=3:b7=3:b8=3:b9=3 
el=4:02=4:03=4:04=4:05=4:c6=4:c7=4:c8=4:c9=4 
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d1=6:d2=6:d3=6:d4=6:d5=6:d6=6:d7=6:48=6:d9=6 
el=7:e2=7:e3=7:e4=7:85=7:06=7:87=7:88=7:e9=7 
f1l=14:f2=14:f3=14: fa=14: f5=14: f6=14: f7=14: fB=1la: 9 
=14 

RETURN 
































REM *ssxxx% Farben des sichtbaren Würfelteils werd 
en gezeichnet saxsxuxx 

LABEL sichtflächen 

REM ZEsEKuuueeKae Renee vorn sichtbare WÜ 
rfelfläche #++#xsz24x 
B0X 1000;1000,800,820 
80X 1800;1000,800,820 
BOX 2600;1000,800,820 
BOX 1000;1800,800,820 
BOX 1800;1800,800,820 
80X 2600;1800,800,820 
BOX 1000;2600,800,820 
BOX 1800;2600,800,820 COLOR FILL 

B0X 2600;2600,800,820 COLOR a3 FILL 

REM KEREIKKKEEREKTKEF RER TEE u oben sichtbare wü 
rfelfläche *#zzs=s.2«x 

SHAPE 1000;3400,1800;3400,2100;3700,1300;3700 
R bl FILL 

SHAPE 1800;3400,2600;3400,2900;3700,2100;3700 
R b2 FILL 

SHAPE 2600;3400,3400;3400,3700;3700,2900;3700 
R b3 FILL 

SHAPE 1300;3700,2100;3700,2400;4000,1600;4000 
R b4 FILL 

SHAPE 2100;3700,2900;3700,3200;4000,2400;4000 
R b5 FILL 

SHAPE 2900;3700,3700;3700,4000;4000,3200;4000 
R b6 FILL 

SHAPE 1600;4000,2400;4000,2700;4300,1900;4300 
R b7 FILL 

SHAPE 2400;4000,3200;4000,3500;4300,2700;4300 
R b8B FILL 

SHAPE' 3200;4000,4000;4000,4300;4300,3500;4300 
R 69 FILL 

REM Kurssuche: rechts sichtbare 
Würfelfläche sıx«xz=== 

SHAPE 3400;3400,3700;3700,3700;2900,3400;2600 
R el FILL 

SHAPE 3700;2900,4000;3200,4000;4000,3700;3700 
R c2 FILL 

SHAPE 4000;3200,4300;3500,4300;4300,4000;4000 
R c3 FILL 

SHAPE 3400;1800,3700;2100,3700;2900,3400;2600 
R c4 FILL 

SHAPE 3700;2100,4000;2400,4000;3200,3700;2900 
R c5 FILL 

SHAPE 4000;2400,4300;2700,4300;3500,4000;3200 
R c6 FILL 

SHAPE 3400;1000,3700;1300,3700;2100, 3400; 1800 
R c7? FILL 

SHAPE 3700;1300,4000;1600,4000;2400,3700;2100 
R c8 FILL 

SHAPE 4000;1600,4300;1900,4300;2700,4000;2400 
R c9 FILL 


COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 


FILL 
FILL 
FILL 
FILL 
FILL 
FILL 
FILL 


coLo 
coLo 
coLo 
coLo 
coLo 
coLo 
coLo 
coLo 


coLo 


coLo 
coLo 
coLo 
coLo 
coLo 
coLo 
coLo 


coLo 








coLo 
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RETURN 


LABEL wahlmenue 
SET COLOUR(2) 
SET POINTS(14) 


PRINT AT(50;2) "<A> 
PRINT AT(50;3) "<B> 
PRINT AT(50;4) "<c»> 
PRINT AT(50;5) "<D> 
PRINT AT(50;6) "<E> 
PRINT AT(50;7) "<F> 
PRINT AT(50;8) "<G> 
PRINT AT(50;9) "<H> 
PRINT AT(50;10)"<I> 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


AT(50;11)"<yJ> 
AT{50;12)"<K> 
AT(50;13)"<L> 
AT(50;14)"<M> 
AT(50;15)"cN> 
AT(50;16)"<O> 
AT(50;17)"<P> 
AT(50;18)"<Q> 
AT(50;19)"<R> 
PRINT AT(50;20)"”<S> 





Wuerfel kippen" 
= Wuerfel drehen" 


= Frontsicht nach rechts” 
= Frontsicht nach links" 

= Frontmitte nach rechts" 
= Frontmitte nach links” 

= Rückfront nach rechts" 

= Rückfront nach links” 

= Schicht oben n, rechts" 
= Schicht oben n. Tlinks" 

= Schicht mitte n. rechts" 
= Schicht mitte n. links" 
= Schicht unten n., rechts” 
= Schicht unten n. links" 
= Spalte-rechts n. oben" 

= Spalte-rechts n. unten“ 
= Spalte-mitte n. oben“ 

= Spalte-mitte n. unten" 

= Spalte-links n. oben" 

= Spalte-links n. unten" 
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PRINT AT(50;21)"<T> 
SET COLOR(1):SET FONT(1) 


PRINT AT(10;21) "wählen Sie !ı ESC = Programmen 
de" 

LABEL programmwah] 

a$=INKEY$ 

IF a$="" THEN GOTO programmwah] 

IF a$=CHR$(27) THEN GOTO ende 

IF a$="A" OR a$="a" THEN GOTO front_rechts 

IF a$="8" OR a$="b" THEN GOTO front_links 

IF a$="C" OR a$="c" THEN GOTO frontm_rechts 
IF a$="D" OR a$="d" THEN GOTO frontm_links 

IF a$="E" OR a$="e" THEN GOTO rueck_rechts 

IF a$="F" OR a$="f" THEN GOTO rueck_links 

IF a$="G" OR a$="g" THEN GOTO schichto_rechts 
IF a$="H" OR a$="h" THEN GOTO schichto_1inks 
IF a$="1" OR a$="i" THEN GOTO schichtm_rechts 
IF a$="J" OR a$="j" THEN GOTO schichtm_links 
IF a$="K" OR a$="k" THEN GOTO schichtu_rechts 
IF a$="L" OR a$="1" THEN GOTO schichtu_1inks 
IF a$="M" OR a$="m" THEN GOTO spalte_r_oben 
IF a$="N" OR a$="n" THEN GOTO spalte_r_unten 
IF a$="0" OR a$="0o" THEN GOTO spalte_m_oben 
IF a$="P" OR a$="p" THEN GOTO spalte_m_unten 
IF a$="Q" OR a$="q" THEN GOTO spalte_]_oben 
IF a$="R" OR a$="r" THEN GOTO spalte_l_unten 
IF a$="S" OR a$="s" THEN GOTO kippen 

IF a$="T" OR a$="t" THEN GOTO drehen 

GOTO programmwahl 

END 

LABEL ende 

CcLS 

CLEAR RESET 

SYSTEM 
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essantes Honorar. 


Also, auf bald.... 


Einsendungen bitte an den 





Achtung! BASIC-Programme gesucht! 


Für unsere ständige PC-Rubrik suchen wir BASIC-Programme sowie Tips & Tricks. Alles, was Sie tun 
müssen, ist, Ihr selbstgeschriebenes Programm mit einer Bedienungsanleitung als Textdatei auf Disket- 
te zu speichern und uns diese zuzusenden. Als Lohn für Ihre Mühe winkt bei Ve 


Übrigens liegen die besten Programme meist in den Schubladen (wo sie absolut nichts zu suchen 
haben) und werden aus fehlender Überzeugung nicht ein 
Programm ausführlich begutachten, könnte Ihre Einsendun 
schlägen, vielleicht der Hit des nächsten Monats werden. 


gesandt. Da wir grundsätzlich jedes 
g, versehen mit unseren Verbesserungsvor- 


V-Verlag - PC-Redaktion - Postfach 250 - 3440 Eschwege 


röffentlichung ein inter- 
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END 
LABEL front_rechts 
:a6=y:y=c7:c7=b3 


cl=bl:b1=d9:d9=e7:07=y 
GOSUB sichtflächen 
GOSUB umrandungen 

GOTO wahlmenue 


LABEL front_links 
sad=y:y=b3:b3=c7 


bl=cl:c1=e7:e7=d9:d9=y 
GOSUB sichtflächen 
GOSUB umrandungen 

GOTO wahlmenue 


LABEL frontm_rechts 
y=b4:b4=d8:d8=e4:e4=c2:c2=y 
ıc5=y:y=b6:b6=d2 
d2=e6:e6=c8:c8=y 

GOSUB sichtflächen 

GOSUB umrandungen 

GOTO wahlmenue 





LABEL frontm_links 


y=b4:b4=c2:c2=e4:e4=d8:dBd=y: 


:d5=y:y=b6:b6=c8 
c8=e6:e6=d2:d2=y 
GOSUB sichtflächen 
GOSUB umrandungen 
GOTO wahlmenue 


LABEL spalte_r_oben 
yscl:c1=c07:c7=69:c9=c3:c3=y 
:c6=y:y=b3:b3=a9 


b9=a3:a3=e7:e7=f7:f7=y 
GOSUB sichtflächen 
GOSUB umrandungen 

GOTO wahlmenue 


LABEL spalte_r_unten 
ıc7=y;y=b3:;b3=fl 
b9=f7:f7=e7:e7=a3:al3=y 
GOSUB sichtflächen 
GOSUB umrandungen 

GOTO wahlmenue 


LABEL spalte_]_oben 





:d7=y:y=bl:bl=a7 


b7=al:al=e9:e9=f9:;f9=y 
GOSUB sichtflächen 
GOSUB umrandungen 

GOTO wahlmenue 


LABEL spalte_]_unten 





:d3=ey:y=bl:bil=f3 


f3=ze3:e3=a7:a7=y:y=b4:b4=f6: 


b7=f9:f9=e9:e9=al:al=y 
GOSUB sichtflächen 
GOSUB umrandungen 

GOTO wahlmenue 


LABEL schichto_rechts 


:b3=y:y=al:al=dl 
di=fl:flscl:ci=y:y=a2:a2=d2 
a3=d3:d43=f3:f3=c3:c3=y 
GOSUB sichtflächen 

GOSUB umrandungen 

GOTO wahlmenue 


LABEL schichto_1links 


:b7=y:yszal:al=ci 





a3=c3:c3=f3:f3=d3:d3=y 
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ysa3:a3=al:al=sa7:a7=a9:a9=y: 


b3=d3:d3=e9:e9=y:y=-c4:c4=b2: 


ysal:al=a3:a3=a49:a9=a7:a7=y: 


c7=89:8e9=d3:d3=y:y=b2:b2=c4: 


a9sel:el=sfl:fl=y:y=b6:b6=a6: 


y=02:02=c06:c6=c8:c8=c4:c4=y: 


flzel:el=sa9:a9=y:y=b6:b6=f4: 


y=d2:d2=d6:d6=d8:d8=d4:d4=y: 


a7=ze3:03=f3:f3=y:y=-b4:b4=a4: 


y=d2:d2=d4:d4=d8:d8=d6:d6=y: 


y=b2:b2=b4:b4=b8:b8=b6:b6=y: 


y=b2:b2=b6:b6=b8:b8ö=b4:b4=y: 


cel=fl:fl=dil:di=y:y=a2:a2=c2: 


ysa2:a2=a4:a4=aß: 


b2=d6:d6=eB:e38=y: 


ysa2:a2=a6:a6=aB: 


c4=e8:e8=d6:d6=y: 


ıy=-b5:b5=d5:d5=eS5: 


y=b5:b5=05:c5=e5:; 


ıy=c2:c2=c4:c4=cB: 


abse4:e4=fä:f4=y: 


y=cl:c1=c3:c3=c9: 


f4ze4:e4=a6:a6=y: 


y=d1:d1=d3:d3=d9 


a4=a6b:a6=f6:f6=y: 


y=d1:d1=d7:d7=d9 


f6se6b:e6=ad:ad=y: 


y=b1:b1=b7:b7=b9: 


:d2=f2:f2=c2:c2=y: 


y=bl:blil=b3:b3=b9: 


c2=f2:f2=d2:d2=y: 


a8=a6 


y=cl: 


ad=a4 


y=bl: 


e5=c5 


e5=d5 


c8=c6 


y=b9: 


c9=c7 


y=b9; 


:d9=d7 


y=b?: 


:49=d3 


y=b7: 


b9=b3 


y=a3: 



















GOSUB sichtflächen 
GOSUB umrandungen 
GOTO wahlmenue 


LABEL spalte_m_unten 


y=-a2:a2=b8:bö=f8: f8=eß:eB=y: 


‚eös=y:y=aß:a8=b2 
b2=f2:f2=e2:e2=y 
GOSUB sichtflächen 
GOSUB umrandungen 
GOTO wahlmenue 


LABEL spalte_m_oben 


y=sa2:a2=e8ß:e8=f8:f8=b8:bBö=y: 


:b5=y:y=aß:aß=e2 
e2=f2:f2=b2:b2=y 
GOSUB sichtflächen 
GOSUB umrandungen 
GOTO wahlmenue 


LABEL rueck_rechts 


ysf1l:f1=f3:f3=f9:f9=f7:f7=yY: 


ıf4=y:y=b7:b7=d7 


d7=el:el=c3:c3=y:y=b8:b8=d4: 


b9=d1:dl1=e3:8e3=c9:c9=y 
GOSUB sichtflächen 
GOSUB umrandungen 

GOTO wahlmenue 


LABEL rueck_links 


yaf2:f2=f4:f4=f8:f8=f6:fhey: 


ıf3=y:y=b7:b7=c3 


c3=sel:el=d7:d7=y:y=bB:bBö=c6:; 


b9=0c9:c9=e3:e3=dl:d1=y 
GOSUB sichtflächen 
GOSUB umrandungen 

GOTO wahlmenue 


LABEL schichtm_rechts 


ysas:a4=d4:d4=f4: f4=scd:cä=y: 


:05=y:y=a6:a6=d6 
d6ö=f6:f6=c6:c6=y 
GOSUB sichtflächen 
GOSUB umrandungen 
GOTO wahlmenue 


LABEL schichtm_links 
ysas:a4=c4:c4=f4:f4=d4:d4=y 
:d5=y:y=a6:a6=c6 
c6=f6:f6=d6:d6=y 

GOSUB sichtflächen 

GOSUB umrandungen 

GOTO wahlmenue 


LABEL schichtu_rechts 


yzseß:eB=e6:e6=e2:e2=e4:e4=y: 


ı@e7=y:y=a9:a9=d9 
d9=f9:f9=c9:c9=y:y=aß:ad=dB 
a7=d7:d7=f7:f7=c7:c7=y 
GOSUB sichtflächen 

GOSUB umrandungen 

GOTO wahlmenue 


LABEL schichtu_links 
yzeß:eß=ze4:e4se2:e2=e6ß:eß=y 
se3=y:y=a7:a7=c7 


c7=f7:f7=d7:d7=y:y=a8:a8d=c8: 


a9=c09:c9=f9:f9=d9:d9=y 
GOSUB sichtflächen 
GOSUB umrandungen 

GOTO wahlmenue 


LABEL drehen 


y=b1:b1=b3:b3=b9:b9=b7:b7=y: 


:b4=y:ysal:al=cl:cli=fl 


fl=dl:di=sy:y=sa2:a2=c2:c2=f2: 


c3=f3:f3=d3:d3=y:y=-a4 
a4s=sc4:c4=f4: f4=d4:d4=y:y=a5 
ıy=a6:a6=c6:c6=f6:f6=d6 


d6=y:y=a7:a7=c7:c7=f7:f7=dT: 


f8=d8:d8=y:y=a9:a9=c9 


c9=f9:f9=d9:d9=y:y=-eBß:ed=e4: 


e7=el:el=se3:e3=e9:e9=y 
GOSUB sichtflächen 
GOSUB umrandungen 
GOTO wahlmenue 


Listing Würtel 


ıysa5:a5=c5:c5=f5 


:d8=f8: f8=c8:cd=y: 


ıy=e9:e9=e7:e7=el: 







ysza5:a5=b5:b5=f5: 


f5=e5 


ysa5:a5=e5:e5=f5:f5=b5 


y=-f2:f2=f6:f6=f8:f8=f4 


d4=e2:e2=c6:c6=y:y=b9: 


y=fl:f1=f7:f7=f9:f9=f3 


c6=e2:e2=d4:d4=y:y=b9: 


y=a5:a5=d5:d5=f5; f5=c5 


ı f5=d5 


y=e9:e9=e3:e3=el:el=e7? 


y=a?: 


c8=f8:f8=d8:d8=y: 


y=b2:b2=b6:b6=b8:b8=b4 


f2=d2:d2=y:y=a3:a3=c3: 


sa5=c5:c5=f5:f5=d5:d5=y 


d7=y:y=a8.a8=c8:c8=fB: 


e4sze2:e2=eb:e6=y:y=eT: 





LABEL kippen 
y-al:al=a3:a3=a9;a9=a7:a7=y:y=a2:a2=a6:a6=aß:aß=a 
‚as=sy:y=bl:bl=cl:cl=e7 
e7=d9:d9=y:y=b2:b2=c4:c4=e8:e8=d6:d6=y:y=b3:b3=c7: 
c7=89:89=d3:d3=y:y=b4 


b4=c2:c2=e4:e4=d8:d8=y:y=b5:b5=05:c05=e5:e5=Jd5:d5= 
:y=b6:b6=c8:c8=e6:e6=d2 


e2=d4:d4=y:y=b9:b9=c9 


f2=f4:f4a=fB:fB=f6: f6=y 
GOSUB sichtflächen 
GOSUB umrandungen 

GOTO wahlmenue 


LABEL anfang_a 
y-a3:a3sal:al=a7:a7=a9:a9=y:y=-a2:a2=a4:ad=aß:adza 
a6=y:;y=c7:c7=b3:b3=d3 


b1=d9:d9=e7:e7=y 

GOSUB sichtflächen 

GOSUB umrandungen 

RETURN 

LABEL anfang_b 

yrak:as=scä:c4=f4; fa=mda:da=sy:ysaS:as=ces:cä=f5: f5=dg 
ıd5=y:y=a6:a6=c6 

c6=f6:f6=d6:d6=y 

GOSUB sichtflächen 

GOSUB umrandungen 

RETURN 

LABEL anfang_c 

y-a2:a2=b8:b8=f8: f8=eß:eß=y:y=a5:a5=b5:b5=#5: föze 
se5=y:y=a8:a8=b2 

b2=f2:f2=e2:e2=y 

GOSUB sichtflächen 

GOSUB umrandungen 

RETURN 


LABEL drehauswanhl 
GOSUB hintergrund 
GOSUB farbe 

GOSUB sichtflächen 
GOSUB umrandungen 
RANDOMIZE TIME 
a=INT(RND#2)+1 
b=INT(RND#2)+1 
c=INT(RNDO®«3)+1 

FOR i=1 TO a 

FOR j=1 TO b 

FOR k=1 TO c 

GOSUB anfang_a:GOSUB anfang_b:GOSUB anfang_c 
NEXT K:NEXT Jj:NEXT i 
GOTO wahlmenue 


LABEL spielregel 

GOSUB hintergrund 

SET COLOR(2) 

PRINT AT(10;3) FONT(2) POINTS(36) COLOR(12) "srr* 
Spielregel xxx" 

PRINT AT(10;5) "Der Würfel ist in jeder Ebene und 

jeder Spalte drehbar." 

PRINT AT(10;6) "Er kann gekippt und um die eigene 

Achse gedreht werden." 

PRINT AT(10;8) "Befehle werden über die Tastatur 

ingegeben." 

PRINT AT(10;10) 

auptprogramm." 

PRINT AT(10;12) "Ziel des Spiels ist es, den unge 

rdneten Würfel so zu verdrehen,” 

PRINT AT(10;13) "daß alle Flächen farblich überef 

stimmen." 

PRINT AT(10;15) 

ürfel beginnen, den Sie 

PRINT AT(10;16) "zunächst selbst verdrehen. 

nnen sich den Würfe] aber" 

PRINT AT(10;17) "vor Ihren Augen auch vom Compute 
verdrehen lassen." 

SET COLOR(1) 

PRINT AT(5;20) COLOR(12) 

W]=Würfel(geordnet) 

LABEL spielregelwahl 

a$=INKEY$ 

IF a$="" THEN GOTO spielregelwahl 

IF a$="wW" OR a$="w" THEN CLS:GOTO programmablauf 

IF a$= OR a$="x" THEN CLS:GOTO drehauswahl 

GOTO spielregelwahl 


"Das Befehlsmenue ersehen Sie #m 


"[TESC]=Programmende 
[x]=würfel(ungeordnet)" 





Listing Würfel 





4 


y 


d2=y:y=b7:b7=c3:c3=el:e1l=d7:d7=y:y=b8:b8=c6:c6=e2: 


c9=e3:e3=di:dl=y:ysf3:fI3=fl:fi=ef7:f7=2f9:fgeyıyef2: 


6 


d3=e9:e9=y:y=c4:c4=b2:b2=d6:d6=eß:e8=y:y=clicl=bl: 


5 


5 


H 


° 


n 


"Ste können mit einem geordneten W 


Sie kö 


r 








Meisterstücke der Computergrafik 


rrantal “ 
Ir 


ıanarato 





High-Speed - Höchsteffiziente Programmierung in Assembler. Auf dem 
Amiga jetzt nur noch 7 Sekunden für das “Apfelmännchen"! 
Mandelbrot- und Juliamenge - Mit automatischer Glättungsfunktion. 
Super-Parallel-Projektion - Frei wählbarer horizontaler Blickwinkel mit 
360 Grad: Betrachten Sie das “Fraktalobjekt" von allen Seiten, 
Stufenloser vertikaler Blickwinkel: - Wahlweise Sicht von oben, unten, 
schräg und in der Totalen einzeln und stufenlos einstellbar. 
Voller Bedienungskomfort - Auswahl komplett mit Pulldown-Menüs. 
Wahlweise Steuerung mit der Maus oder über die Tastatur. 
Mehrere separate Bildspeicher - Abspeicherung auf dem Amiga im 
IFF-Format, Verwendung der Bilder in anderen Programmen. 
Phantastische Farbmöglichkeiten - Separate Farbzuordnung für die 
einzelnen Bilder. Animationsmöglichkeit durch Color-Cycling. 
Die Farben lassen sich auch nachträglich beliebig verändern. 


=———— ps 
Fraktal Generator 3D 


MS-DOS ab 2.0; PC-XT/AT mit EGA-Karte oder: 
Amstrad/Schneider PC 1512. 
5 1/4“- oder 3 1/2“-Disk 


69,— DM* 


miga 
Fraktal Ge 3D e 
Commodore Amiga mit 512 KB, 3 1/2“-Disk. 69, > DM 
== — Alarl 
Fraktal Generator 3D 
Atari ST, 3 1/2“ 


69,— DM* 


ee GP 

Fraktal Generator 3D ; 
CPC 464 / 664 / 6128, Kassette 39,—- DM 
49,— DM* 
Demodiskette: Fraktal Generator 3D, MS-DOS 5,- DM 


% Unabhängig von der Anzahl der bestellten Programme berechnen wir für das 
Inland 4,- DM bzw. 6,- DM Porto/Verpackung, - Unverbindliche Preisempfehlung - 


CPC 464 / 664 / 6128, 3*-Disk 


Bitte Bestellkarte benutzen 


DMV-Verlag - Postfach 250 » 3440 Eschwege 
DAAY 


nutan, nnd 
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Aufräumen mit Bedacht 
Löschen von Files in allen Directories 


Eine Festplatte ist doch was Feines. Sogar Festplatten mit 'nur’ 20 MByte 
lassen das Herz des Käufers höher schlagen, wenn er sieht, was so alles dar- 


auf paßt. Doch... 


...irgendwann kommt der Zeitpunkt, 
wo man vor lauter Unterverzeichnissen 
den (Verzeichnis-) Baum und vor lau- 
ter Einträgen kein *.BAK mehr sieht. 


Jetzt heißt es aufräumen, eigentlich 
eine Arbeit, die man grundsätzlich mit 
seiner Festplatte tun sollte. Dabei 
reicht es vollkommen aus, wenn man 
überzählige oder nicht mehr benötigte 


































program loesch; 

uses dos,crt,printer; 

ceonst ich='Rope 1989'; 
blank=' 


TYPE str=stringl[64]; 
str80=string[80}; 
pathname=string[128}; 
register=registers; 


stackanfang,stackende:byte; 


integer; 
seitevoll:boolean; 
zeichen,wahl:char; 
datei:pathname; 
reg:registers; 


{P1) PROCEDURE cursor_ein; 
VAR register:registers; 
BEGIN 
WITH register DO BEGIN 
ax:= $100; 
ex:= $708; 
intr($10,register) 
END 
END; 


{P2} PROCEDURE cursor_aus; 
VAR register:registers; 


BEGIN 

WITH register DO BEGIN 
ax:= $100; 
ex:= $e0e; 
intr($10,register) 
END 


END; 


{Pp3} PROCEDURE warten; 
VAR zeichen:char; 
BEGIN 
REPEAT 
zeichen:=reacdkey; 
UNTIL zeichen in [#0..#255] 
END; 





{$V-) 

VAR laenge,i,start,punkt:integer; 
BEGIN 

IF x<1 THEN x:=1; 

IF y<ı THEN y:=1; 

IF farbe>255 THEN farbe:=255; 
x:=pred(x);y:=pred(y); 
\aenge:=pred(ord(text{0))); 
start:=y#160+(x sh] 1); 


Listing Lösch 


94 PE 9'89 


bsseg=$8800; {für Herkules $b800} 


VAR wahl_,akt_verzeichnis, loesch_datei:pathname; 
verz_stack:array[0..255) of pathname; 


geloeschtdateien,zaehler,spalte,zeile,dateien: 


{P4) PROCEDURE print(x,y,farbe:integer;text:strö0) 


Dateien aus den Dateien löscht. So 
muß ich denn, denkt sich der überlaste- 
te Anwender, in jedes Verzeichnis ge- 
hen und mit DEL die Files löschen, ich 
Armer. Doch nicht verzagen, es gibt ja 
LOSCH. 


Dieses Programm löscht die angegebe- 
nen Dateien (mit Joker) in sämtlichen 
Directories einer Festplatte. Dabei 


END {$V+)} 
END; 






{P5} "PROCEDURE 

ana 
mitte= | 
strich= 
unten= 

VAR i:byte; 


BEGIN 





2); 


t2 


END; 


BEGIN 


END; 











BEGIN 





n')i 
warten; 






Listing Lösch 


FOR i:= O0 to laenge DO BEGIN 
punkt:;=start+(i 
mem[bsseg:punkt]:=ordltextlsuce(i)]); 
mem[bsseg:suec(punkt)]:=farbe 


rahmen(farbe:byte;wortl,wort2:str80 


oben=' PR ZZZZ————— 


—___,,—————— zz 
farbel, farbe2:byte; 


print(O,1,farbe,oben); 
print(0O,2,farbe,mitte); 
print(0,3,farbe,strich); 
FOR i:= 1 to 19 DO 

print(0,i+3,farbe,mitte); 
print(0,23,farbe,strich); 
print(0O,24,farbe,mitte); 
print(0,25,farbe,unten); 
wortl:=copy(biank,1,(76-length(wortl)) div 2) 

+worti+copy(blank,1,(76-length(worti)) div 


IF length(wort1)t77 THEN worti:=worti+t' '; 
wort2:=copy(blank,1l,(76-length(wort2)) div 2)+wor 


+copy(blank,1,(76-lengtn(wort2)) div 2); 
WHILE length(wort2)<77 DO wort2:=wort2+' '; 
farbeil:=farbe mod 16; 
farbe2:=farbe div 16; 
TEXTBACKGROUND( farbe2):; 
TEXTCOLOR(farbel); 
GOTOXY(2,2);WRITE(wort1); 
GOTOXY(2,24);WRITE(wort2) 


{F1) FUNCTION carry:boolean; 


carry:=odd(reg.flags) 


{P6} PROCEDURE abbruch; 


rahmen(31,'Abbruch',ich); 
GOTOXY(10,10); 


WRITELN('Sie haben Lösch (ce) ',ich,' abgebroche 
n'); 

delay(1000);ranmen(31, 'Abbruch’, Taste‘); 

GOTOXY(10,10); 

WRITELN( 'Sie haben Lösch (c) ',ich,' abgebroche 


TEXTBACKGROUND(O);TEXTCOLOR(14),; 





wird jedes File abgefragt. Eine voll- 

ständige Löschung mit *.* ist dabei aus 

Sicherheitsgründen nicht möglich. 

Der Aufruf erfolgt mit: 

a) LOSCH: danach wird nach der Da- 
tei gefragt. 

b) LOSCH Datei: löscht das angegebe- 
ne File. 

Ein paar Beispiele: 

’LOSCH *.SIK’ löscht alle Dateien mit 

der Kennung SIK in allen Directories, 

’LÖSCH *.BAK’ löscht alle Dateien 

mit der Kennung BAK in allen Directo- 

ries, "LOSCH A*.*’ löscht alle Datei- 

en, die mit A beginnen. 

LÖSCH finden Sie als PASCAL-Listing 

im Anhang. Eine lauffähige .EXE-Ver- 

sion finden Sie auf unserer DATABOX. 

(Peter Rottensteiner/jb) 


sh‘ 1); 













CLRSCR; 
SOTOXY(1,1);WRITELNÜ "Ende von Lösch (ce) ',ich); 
halt 

END; 














































{P7} PROCEDURE fenster(xi,yl1,x2,y2,hintergrung, 
schrift, schatten:byte); 

BEGIN 

wingow(xi+1,yl+l,x2+1,y2+1); TEXTBACKGROUND (schatt 

en); 

CLRSCR; 

window(1,1,80,25); 

window(x1,y1,x2,y2); TEXTBACKGROUND (hintergrund): 

TEXTCOLOR (schrift) ;CLRSCR; 

window(1,1,80,25) 

END; 





{P8} PROCEDURE warnung; 
VAR i,j:integer; 
BEGIN 
rahmen(206, WARNUNG WARNUN G WARN 
UNG * 
 _ACHTUNG'); 
FOR j:= 1 to 15 DO BEGIN 
FOR i:= 1 to 1000 DO BEGIN sound(i*j); delayl 
0) END; 
FOR {:= 1000 downto ı 00 BEGIN 
sound(i div $); 
delay(O) 
END; 
nosound 
END; 
c<ursor_aus; 
TEXTCOLOR (white); 
GOTOXY(20,18) ;WRITE('Sie wollen doch nicht '); 
sound(#40) ;WRITE('A');delay(1000); 
sound(600);WRITEU'L');delay(1000); 
sound(770);WRITEÜ'L');delay(1000); 
sound(895) ;WRITE('E');delay(1000); 
sound(1210);WRITE('S');delay(1l000);WRITELN l1ösc 
hen ??!!'); 
nosound; 
TEXTCOLOR(123); 
delay(1000);G0T0xy(40,22);WRITELN("Taste'); 
warten; 
cursor_ein; 
CLRSCR; 
GOTOXY(30,3) ;WRITEL "Nicht mit mir'); 
TEXTCOLOR (black); 
GOTOXY(10,20);WRITELN( "Dazu bitte Format verwende 
rn LEE) 
delay(1000);G0TOXY(#0,22);WRITELN( Taste‘); 
warten; 
TEXTBACKGROUND(0);TEXTCOLOR (14); 
CLRSCR; 
GOTOXY(1,1);WRITELN( "Ende von Lösch (c) steh); 
halt 
END; 


{P9} PROCEDURE loeschen(name:pathname); 
BEGIN 

name:=name+t#0; 

reg.ah:=65; 
reg.ds:=seg(name[l)); 
reg.dx:=ofs(nameli]); 
msdos(reg); 

TEXTCOLOR(red); 

IF carry THEN WRITE(' Fenler ') 

ELSE WRITE(' Gelöscht‘) 

END; 


{P10O}) PROCEDURE push_dir(name:pathname); 
BEGIN 
verz_stack[stackanfang]:=akt_verzeichnis+#92+name 


Stackanfang:=succ(stackanfang) 
END; 


{Pı11) PROCEDURE pop_dir(VAR name:pathname); 
BEGIN 

name;=verz_ Stack[stackende]; 
Stackende:=succ(stackende); 

chdir(name) 

END; 












{Pı12) PROCEDURE hole_dta(VAR es,bx:integer); 
VAR reg:registers; 






Listing Lösch 


Sesam 
öffne 
dich! 


BCi .- 


DisAsm. | 


Intelligenter Disassembler Version 1.0 





BCi DisAsm erschließt 
jedes Programm! 


Wandelt den Hexdump in ein 

dokumentiertes Assemblerlisting um 

und kann nach Modifizierung oder Anderung durch 
einen Editor mit gängigen Assemblern oder Debug- 
gern wieder assembliert werden. 


BCi DisAsm - Es gibt kaum einen, der ihm das Was- 
ser reichen kann! 


Auch Experten kennen nicht immer die Lösung, abersie wissen, wo sie su- 
chen müssen. 

BCi DisAsm hilft JEDEM, die verwirrenden und frustrierenden Software- 
Puzzle, welche sich beim Umgang mit dem Computer ergeben, zu lösen. 
Und zwar schneller als mit jedem anderen Produkt, das Sie erwerben kön- 
nen, egal welche Preisklasse Sie betrachten. 

Mit dem BCi DisAsm enwerben Sie Know-How, das Sie sonst Jahre an Er- 
fahrung kosten würde. Versuchen Sie nicht, das Rad neu zu erfinden! 
BCI DisAsm - Der intelligente Disassembler 

BCi DisAsm ist ein intelligenter, selbsttätig dokumentierender MS-DOS 
Disassembler. Die ausgefeilten Routinen im BCi DisAsm analysieren in kür- 
zester Zeit selbst komplexen und umfangreichen Programmcode und zei- 
gen dabei potentielle Problempunkte auf. 

BCi DisAsm - Das Lernmittel 

Sie brauchen kein Spezialist in Assembler-Programmierung zu sein. BCi 
DisAsm produziert aus jedem beliebigen Programm ihres IBM-kompatiblen 
Computers ein gut dokumentiertes, leicht verständliches Assemblerlisting. 
BCi DisAsm - Einfach in der Handhabung 

BCi DisAsm kann sowohl über Parameter von der DOS-Kommandozeile aus 
als auch interaktiv über Menüs gesteuert werden. Die Menüstruktur ist 
Lotus-kompatibel, selbstverständlich in Deutsch. Es besteht keine Notwen- 
digkeit, neue Befehle zu lernen oder ständig im Handbuch nachzuschla- 
gen. BCi DisAsm ist unmittelbar anwendbar! 

Minimale Systemanforderungen 

256 kB ‚ 8088/8086/80186/80286 oder 80386 CPU, MS-DOS oder PC- 
DOS Version 2.0 oder größer 


BCi DisAsm wird Ihnen bei den folgenden 
Schritten helfen: 


1. Lernen Sie Assembler-Programmierung, wenn Sie 
möchten. 

2. Entdecken Sie, warum Programm XYZ auf ihrem Rech- 
ner nicht läuft, und tun Sie etwas dagegen. 

3. Andern oder entfernen Sie Programmteile. 

4. Sichern Sie sich gegen destruktive Programme ab. Fin- 
den Sie einen “Virus“, und entfernen Sie ihn, 

5. Integrieren Sie Code aus compilierten Programmen in ei- 
gene Anwendungen. 

6. Erhöhen Sie die Kompatibilität Ihrer Software. 

7. Passen Sie Software an verschiedene MS-DOS- 
Versionen an. 

© 1987 BC, West Germany und USA 

Lotus ist eingetragenes Warenzeichen der Lotus Corp. 

MS-DOS ist eingetragenes Warenzeichen der Microsoft Corp. 

BCi DisAsm kostet inkl. eines sehr ausführlichen deutschen 

Handbuchs (mehr als 100 Seiten) nur 


Best.-Nr. 227 5 1/4“-Disk. Best.-Nr. 233 3 1/2"-Disk. 


199, - DM unverbindliche Preisempfehlung 
Wenn Sie über den DMV-Bestellservice bestellen, gilt folgendes: 
Inland: Ausland: 


Einzelpreis 199,- DM Einzelpreis 199,- DM 
zzgl, Versandkosten 4,— DM zzgl. Versandkosten 6,—- DM 
— eg a 9, DM 


Endpreis 203,- DM Endpreis 205,- DM 





Bestellen Sie noch heute mittels der 
entsprechenden Bestellkarte bei: 


DMV-Verlag 
Postfach 250 - 3440 Eschwege 


Händleranfragen willkommen 
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BEGIN 
reg.ax:=$2f00; 
msdos(reg); 
es:=reg.es; 
bx:=reg.bx 
END; 






{P13) PROCEDURE such_ersten_eintrag(such_string:pa 
thname; 
attribut:integer;VAR status:integer); 
VAR reg: registers; 
BEGIN 
such_string:=such_string+#0, 
reg.ax:=$4e00; 
reg.ds:=seg(such_string[1}); 
reg.dx:=ofs(such_string[i1)); 
reg.cx:=attribut; 
msdos(reg); 
status:=lo(reg.ax) 
END; 


{P14} PROCEDURE such_weiteren_eintrag(VAR status: 
nteger); 
VAR reg:registers; 
BEGIN 

reg.ax:=$4f00; 

msdos(reg); 

status:=lo(reg.ax) 
END; 


{Pı5)}) PROCEDURE hole_name(VAR file_name:pathname); 
VAR es,bx:integer; 
BEGIN 

hole_dta(es,bx); 

bx:=bx+30; 

file_name:=''; 

WHILE meml[les:bx)<> O0 DO BEGIN 
file_name:=file_name+chr(memles:bx]); 
bx:=succ(bx) 

END 
END; 


{P16) PROCEDURE such_eintraege(such_string:pathnam 

e); 

VAR loeschname, file_name:pathname; 
punkt,es,bx,status:integer; 
teill,teil2:string[8]; 
zeichen,taste:char; 

BEGIN 

hole_dta(es,bx); 
such_ersten_eintrag('*. 
GOTOXY(3,24); 
TEXTBACKGROUND(0);TEXTCOLOR(10); 

WRITELN('Ich suche im Directory ', 

akt_verzeichnris,' 


',18,status); 








1 

WnILE status=0 DO BEGIN 
IF (memles:bx+21] and 16)=16 THEN BEGIN 
hole_name(file_name); 







IF file_name[ll]£>'.' THEN push_dir(file_name) 
END; 

such_weiteren_eintrag(status) 

END; 





such_ersten_eintrag(such_string, 39, status); 

WHILE status=0 DO BEGIN 
dateien:=succ(dateien); 
hole_name(file_name); 
punkt:=pos(',',‚file_name); 

IF punkt=0O THEN punkt:=9; 

teill:=copy(file_name,1,punkt-1); 

teil2:=copy(file_name,punkt+1,3); 

WHILE lengtn(teili1l)<8 DO teill:=teiil+' '; 

WHILE length(tei12)<3 DO teil2:=tei12+' 

file_name:=teill+'. '+teil2; 

zeile:=zeile+l; 

zaehler:=succ(zaehler); 

spalte:=5; 

IF (zaehler mod 17)=0 THEN BEGIN 
fenster(3,4,77,21,7,1%4,1); 
zeile:=3 
END; 

GOTOXY(spalte,zeile+2);TEXTCOLOR(12); 

TEXTBACKGROUND(7); 

WRITE(dateien:3,'> '); 

TEXTCOLOR (black) ;WRITE(file_name, ' 

chnis); 
loeschname:=akt_verzeichnis+'\'+file_name; 
WRITE(' löschen (j/n) '); 





















',akt_verzei 
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REPEAT 

zeichen:=readkey 

UNTIL zeichen in [#0..#255]); 

IF zeichen=#827 THEN abbruch; 

TEXTCOLOR(ye!10ow);GOTOXY(60,zeile+2); 

IF upcase(zeichen)='J' THEN BEGIN 
loeschen(lveschname); 
geloeschtdateien:=succ(geiovesch 

tdateien) 
END 
ELSE WRITELN(' Nicht gelöscht’); 
such_weiteren_eintrag(status) 
END 
END; 


{P17) PROCEDURE suche(such_string:pathname); 
VAR start_verzeichnis:pathname; 
dirs:integer; 


BEGIN 

getdir(O,start_verzeichnis); 

akt_verzeichnis:=''; 

endir(#92); 

stackanfang:=0; 

stackende:=0; 

dateien:=0; 

dirs:=l, 

geloeschtdateien:=0; 

such_eintraege(such_string); 

WHILE stackanfang<>stackende DO SEGIN 
dirs:=succ(dirs); 
pop_dirlakt_verzeichnis); 
such_eintraege(such_string) 

END; 

GOTOXY(3,24); TEXTCOLOR (white); TEXTBACKGROUND(red) 


WRITE(' 

Vi 
GOTOXY(4,24); 
WRITE('Es wurden ',dirs,' Verzeichnisse durchsuch 


und ',‚geloeschtdateien, ' Dateien gelöscht 
a 
GOTOXY(1,1); 
ehdir(start_verzeichnis) 
END; 


BEGIN 
IF paramcount<>0 THEN rahmen(l4,' Löschen; 


+paramstr(l),ich) 
ELSE ranmen(14,'Lö schen 

"Eh t 

zeile:=2;spalte:=2;seitevoll:=false; 

zaehler:=0; 

IF paramcount<>0 THEN BEGIN 
loesch_datei:=paramstr(1); 
wahl_:=paramstr(2); 
wahl:=wahl_[1] 

END 

ELSE BEGIN 
GOTOXY(5,4); 
WRITELNÜ'Löscht in sämtlichen Unterdirectories’+ 

“entsprechende Dateien '); 
GOTOxXY(5,5); 
WRITELN( "Abbruch mit ESC'); 
GOTOXY(5,7); 
WRITE('Bitte Löschbegriff eingeben : '); 
READLN(loesch_datei); 
GOTOXY(47,2);WRITELN(loesch_datei) 
END; 


IF (pos(#92,10oesch_datei)>O) OR 
(pos(':',loesen_datei)>0O) THEN 
rahmen(45,'Pfad- oder Laufwerksangaben sind nich 
er 
‘erlaubt’, 'Neu starten‘) 
ELSE IF ioesch_datei<>'' THEN BEGIN 
fenster(3,4,77,21,7,14,1); 
IF (loesch_datei='=*,=') OR (loesch_datei 
='2') OR 
(loesch_datei='®.') THEN warnung; 
suche(loesch_datei) 
END; 
REPEAT UNTIL keypressed; 
TEXTBACKGROUND(black); TEXTCOLOR( yellow) ;CLRSCR; 
GOTOXY(1,1); 
WRITE('Ende von Lösch (c) ',ich) 
END. 


Listing Lösch 


VIEL INFORMATION 
für so wenig Geld! 


NUR 50,— DM 
kostet Sie das Ultra Pack 


— nur solange Vorrat reicht — 





alle Ausgaben von PC Amstrad/Schneider Int. des 
Jahrgangs 1987 

+ 3 Ausgaben von PC International des Jahres 1986 aus 
unseren Restbeständen 

+ 2 Sammelordner zum Archivieren 


Bitte benutzen Sie die Bestellkarte. 


DMV-Verlag — Postfach 250 — 3440 Eschwege /DAAY 








PC-Test 


ao... 
SIWIG a WASANAG 


DM 954, 


Die Textverarbeitung für Ihren PC 
mit Druckersusgahe 


ut Tertveraheir 2a 
es « 


er Spitzerklz, 


N Desneapbedenuung 


Textschreiben für Sparsame 


Die Shareware-Textverarbeitung 
PC-TEXT 2.0 im Test 


Liest man in Computerzeitschriften über die Vorzüge der einen oder 
anderen Textverarbeitung, läuft einem das Wasser im Mund zusam- 
men..., bis man den Preis im Kleingedruckten findet und sich 
prompt verschluckt. Verstärkt machen sich nun in der Public Do- 
main und Shareware Textverarbeitungsprogramme breit, deren 
Preis nur einen Bruchteil dessen beträgt, was man für ein professio- 
nelles Textsystem bezahlen muß. Wobei noch anzumerken wäre, das 
Professionalität nicht nur für kommerzielle Software gelten muß. 
PC-Text 2.0 ist so eine Textverarbeitung, die den kommerziellen Pro- 
grammen das Fürchten lehren will. Ob sie es schafft, soll unser Text 


zeigen. 


Das Programmpaket PC-TEXT 2.0 be- 
steht aus Textverarbeitung, Adreßver- 
waltung und Rundschreiben (Mail 
Merge). Es stammt von Roland Otter 
(ro-Software-Entwicklung), der sich 
auf kundenspezifische Software-Ent- 
wicklung und Systemberatung speziali- 
siert hat. Das Programm wird als Sha- 
reware beim PD-Service Schulz in 
Lage/Lippe vertrieben und wird als 
dreiteiliges Paket geliefert. Als Inhalt 
findet der Käufer die Programmdisket- 
ten eins und zwei, sowie eine Diskette 
mit Anleitung. Bei der Anleitung han- 
delt es sich um ein umfangreiches, in 
deutsch gehaltenes "Fast’-Handbuch. 
Der Preis für dieses Programmpaket 
beträgt 49,— DM (Registriergebühr) 
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plus 5,— DM für die Bearbeitung, ein 
Anreiz für diejenigen, deren Geldbeu- 
tel über größere Löcher verfügt. 


Menüsteuerung 


Die Steuerung erfolgt konsequent über 
sogenannte Pop-Up-Menues, wie sie 
von Anwendungsprogrammen wie 
TurboPascal 4.0 bekannt sind. Das 
Hauptmenü besteht aus den Punkten 
Datei, Edit, Schrift, Block, Ausdruck 
und Option. Die Menüpunkte können 
entweder über den (hell hervorgehobe- 
nen) Anfangsbuchstaben oder einen 
wandernden Balken per Cursortasten 
und RETURN ausgewählt werden. 
Auch die Hilfswindows, die zu jedem 


Menüpunkt existieren, erinnern stark 
an die Konzeption von TurboPascal 
4.0. Mit der Funktionstaste Fl kann je- 
derzeit zu dem aktuellen Punkt ein er- 
läuternder (“kontextbezogener“) Text 
in deutscher Sprache abgerufen wer- 
den. Das ist der Hauptgrund, weshalb 
das System vor allem dem Anfänger in 
Sachen Computer und Textverarbei- 
tung empfohlen werden kann. Auch 
Neulinge kommen nach kurzer Einar- 
beitungszeit mit PC-TEXT zurecht. 
Das Zeilenlineal kann nur auf bis zu 74 
Zeichen Zeilenbreite eingestellt wer- 
den. Fremdtexte (zum Beispiel Turbo- 
Pascal-Listings) mit 80 Zeichen pro 
Zeile werden also zerstückelt wieder- 
gegeben. Ein großes Minus in punkto 
ASCII-Kompatibilität also. 

Der Text wird nicht so auf dem Bild- 
schirm dargestellt, wie er auf dem 
Drucker ausgegeben wird (WYSI- 
WYG — “What you see is what you 
get“-Prinzip), sondern er wird mit 
Drucker-Steuerzeichen versehen. 

Der normale, laufende Text wird hell 
(“highvideo“) und die Steuerzeichen 
(Unterstreichung, Schmalschrift, 
Breitschrift, Doppeldruck, Indices, 
Fettdruck) werden dunkel (“lowvi- 
deo“) dargestellt. 


PC-TEXT 2.0 unterstützt im übrigen 
folgende Drucker: 





— Compute Mate CP80 

— TA/Gabriele 7007 Typenrad 
— OKI Mikroline 192 

— AMSTRAD LQ 3500 

— Schneider Sprinter 180 

— HP Laserjet I 

— und alle kompatiblen Drucker 


PC-TEXT 2.0 kennt die wichtigsten 
Standard-Features guter Textverarbei- 
tungen wie Blockbefehle, Undo-Funk- 
tion, Diskettenmenüs, Mail Merge 
(Rundschreiben), Suchen (allerdings in 
der vorliegenden Version noch ohne 
Ersetzen), Einfügen und Löschen, 
Druckerinstallation und so weiter. Als 
Hardware-Voraussetzungen gelten für 
PC-TEXT 2.0 folgende Vorausset- 
zungen: 

Der Anwender sollte im Besitz eines 
IBM- oder kompatiblen Computers mit 
mindestens 512 kByte Hauptspeicher 
sein, zwei Laufwerke mit 360 kByte 
Kapazität sind von Vorteil, eine Mono- 
chrom-/Farbgrafik-Karte (CGA) reicht 
zu Darstellung der Texte auf dem Bild- 
schirm völlig aus,und der Computer 
sollte über eine MS-DOS-Version ab 
2.11 und einen Neun-oder 24-Nadel- 
Drucker verfügen. Auch Laserdrucker 





Hilfe =Speichern -Laden 1 -Block Druck 


werden vom Programm akzeptiert, je- 
doch wird wohl kaum ein Käufer des 
Programmes über eine derartige Aus- 
stattung verfügen. 

Die Bedienungsanleitung macht einen 
guten Eindruck. Sie ist verständlich 
und ausführlich (über 60 Seiten). 


Geplante Updates 


Das Programm soll laut Roland Otter 
in absehbarer Zeit noch um folgende 
Punkte erweitert werden: 

1. Möglichkeit des Rahmenzeichnens 
2. Eingabe von Kopf- und Fußtexten 
3. Suchen und Ersetzen von Zeichen 


Neue Versionen werden dem regi- 
strierten Anwender von PC-TEXT 2.0 
zu einem günstigen Preis angeboten 
werden. 


Was uns gefiel 


+ Preis-/Leistungsverhältnis 

+ Komfortable deutsche Menüführung 
+ Ausführliche Bedienungsanleitung 
+ Deutsche Hilfstexte 

+ Kurze Einarbeitungszeit 


Was uns mißfiel 


— Ständiges Nachladen 

— Nur 74 Zeichen Zeilenbreite 
— Fehlendes Suchen/ Ersetzen 
— Kein WYSIWYG 


Als Endwertung kann man sagen: 


Das Programmpaket PC-TEXT 2.0 

ist vor allem PC-Usern zu empfehlen, 
die nur ab und zu einmal einen Brief 
schreiben oder aber in Sachen Textver- 
arbeitung noch nicht so firm sind. Die 
Textverarbeitung kann durchaus den 
normalen Ansprüchen genügen. Für 
verwöhnte PC-Besitzer, die schon mit 
Programmen wie zum Beispiel Word, 





PC-Test77 


Die Texterstellung 
gestaltet sich gerade 
für Anfänger auf dem 
Gebiet mit PC- Text 
2.0 sehr gut, durch 
die durchdachte Me- 
nüführung lernt man 
Kali schnell alle Funktio- 
nen kennen 


WordStar oder Context gearbeitet ha- 
ben, ist es allerdings nur bedingt zu 
empfehlen, da dem Programm die Spe- 
zialitäten der vorgenannten Program- 
me fehlen. 


Etwas zum Thema 
Textverarbeitung 


Natürlich gibt es Textverarbeitungen 
wie Sand am Meer. Sie verfügen über 
hervorragende Funktionen, die das 
Schreiben von Briefen, Textseiten und 
ähnlichem zu einem reinen Vergnügen 
machen — wenn man damit umzuge- 
hen versteht. Leider wird der Anfän- 
ger, oder besser der Einsteiger hin- 
sichtlich zweier Punkte überfordert: 
l.) Durch zu viele Funktionen und 
2.) durch die hohen Preise. 
Deshalb stellen wir an dieser Stelle ein- 
mal eine Textverarbeitung aus der 
Shareware vor, die zwar nicht so per- 
fekt ist wie die "Großen’ der Branche, 
aber sich trotzdem nicht zu verstecken 
braucht. 

(Eckehart Röscheisen/jb) 





Inzwischen wird vom PD-Service 
Lage auch die Version 2.1 von PC- 
Text angeboten. Sie enthält einige 
der oben vorgestellten Neuerungen 
und ist für 49,— DM zu erhalten. 
Nähere Informationen können Sie 
beim Anbieter des Programmes er- 
halten. Hier die Adresse: 


PD-Service-Lage 
Bernd Schulz 
Hasselstr. 38 

4937 Lage/Lippe 
Tel.: 05232 / 66912 








EEE | 


NELERFEILT 


Biete Software 


HERBEHBER 

-->TEST GELESEN? 
ASSI, deutsche DBASE-Benutzer- 
Oberfläche der Superlative für 
DBase Il! DBASE-Funktionen 

nun komfortabel per Pulldown- 
Menüs aufrufen. Online-Hilfen, 
zusätzliches Dienste-Menü. 
Bedienerfreundlich wie MS-DOS! 





acw-Soft’s ASSI 79; 
CP/M Benutzeroberfl. KICK 49; 
NEU: WordStar kompatible Mini- 

Textverarbeitung EDV für 43; 


acw-Soft, Tel. 0228/6368 18, 
Breite Str. 16, 5300 Bonn 1 
BEHBHBENNEBNBBEBNEE G 





Astrologie mit Computer 

International geschäftz Astro- 
logenprogramme, professionelle 
Deutungsprogramme, Lernprogramme 
für Anfänger, Handschriftanalyse, 
Bio-Rhythmus, Astro-I-Ging. 

Info gegen DM 2;- in Marken. 

Astron, K.W. Bonert, Peter-Marqu.Str.4a 
2000 Hamburg 60 G 





Schneider CPC Public-Domain-Soft- 
ware: Bartram, Haardtwaldstr. 1, 
6000 Frankfurt, Bitte Rückporto 





Lehrerkollegen, Sie wollen den 
PC ,CPC oder JOYCE im neuen 
Schuljahr nicht allein zum 
Schreiben benutzen ? 
Berechnen und verwalten Sie 
Noten bzw. Punkte mit komfort. 
Programm. Einfachste Menü- 
Bedienung ohne Programmier- 
kenntnisse. Ausf. INFO gegen 
1.70 DM Porto, Claus Bernhold 
Rommelstr. 31, 8783 Hammelburg 





JOYCE ORIGIN. SOFTWARE, FIBU, 
FAKTU, dBASE, TEXTV. ETC.50% 
UNTER NEUPREIS. BESSLER, TEL.: 
061 95/6 11 17 NACH 19 UHR. 





ADR/dBasell Adressenverw,, super 
komfort. u. schnell, mit Listen 
(Bildsch./Drucker/Textdatei), Etik 

1- u, 2-bahnig, Mail-Merge-Datei f. 
LocoMail, Disk. + Programmbeschr. 
DM 48,,, inkl. Vers,, Info gg. Freium- 
schlag: K. Bongartz, Rheinaustr. 40, 
5300 Bonn 3 





CPC-PUBLIC-DOMAIN-SOFTWARE 
Liste 2 x 60 PF bei: Peter Breuker 
Rektenstraße 10, 4930 Detmold 1 





Wirtschaftliche Programme 

für die Arztpraxis auf 

dem Schneider CPC, Joyce, PC 

Fa. EFFEKTA, Am Wiggert 9c 

45 Osnabrück, Tel. 0541/442416 G 





LocoSeript2-Fibel, 040/81 37 21 G 





EXPO-SOFT 

Immer aktuell und superschnell 

Public Domain & Free-Software 

IBM / Schneider PC + Kompatible 
Disk. ab DM 1,80 - Gratisinfo 

S. Schülke, Wuppertaler Str. 130 

5650 Solingen 1, Tel: 00212/591208 G 





989 Pe 99 
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BEREHRENEEENERRENHENHE 
STEUERMAT: Lohn-und Einkommen- 
steuer 88; Ausdruck direkt auf die An- 
tragsformulare, Analyse, Tabelle, alle 
Einkunftsarten, jährliche Aktualisie- 
rung (20,- DM) 89,-DM, 
FORMULARPRINT: 

DIN A4-Formularbearbeitung, 40, DM 
FIBUMAT: Einnahme-/überschuß-Rech- 
nung, Kassenbuch, Kontenlisten, Ergeb- 
nisabrechnung, USt.-Voranmeldung, 
Funktionstasten frei belegbar, 142,- DM 
Für JOYCE: 3” oder IBM-PC: 5,25” u. 
3,5“, Demo: 15,- DM, Info: 80Pf, RP 
FFSW, Farin, Elisabethstr. 65, 4460 
Nordhorn, Tel.: 05921/13757 
BHEENEEENREENENNE G 


Dias ordnen mit Computer 

CPC 464/664/6128, JOYCE und PC 

bis zu 100.000 Dias; Suchzeit 

1 Sekunde. Info gegen Rückporto 

bei: Dipl.-Ing. W. Grotkasten, 
Birnenweg 6, 7060 Schorndorf 

Tel. 07181/42846 G 


HALO DPE: Prof. PC-DTP: DM 400, 
unterst.; Laserdr., Scanner, Maus 
Lightpen, Digitizer, Exp.Memory, 

18 Schriftarten: Größe variabel 

M. Holzhäuser, Tel. 06544/543 





WEGEN SYSTEMWECHSEL Joyce- 
Databox 7/86 - 7/89 zum halben Preis 
(VHS) zu verkaufen. Nur Originale! 
Ciffre: 89/00105PC 





Public Domain & Free-Software, 
18M/Schneider PC u. Kompatible, 
Disk,ab DM 1,80 - Gratiskatalog 

M. Karbach, Remscheiderstr. 18 

5650 Solingen 1, Tel. 0212/43140 G 





ACHTUNG !! ERWACHSENE 
10 Disk.5 1/4” oder3 1/2” mit delikaten 
Programmen f. IBM PC/Kompatible 
Nur DM 50, VS/Bar., M. Karbach 
Remscheiderstr. 18, 5650 Solingen G 





Für Joyce: TURBO-Pasc 100;; 
MICA 90,-; XBC-Basic 90, 
Tel. 06198/32386 





CPC & JOYCE PUBLIC DOMAIN 
Ein Info ist für 2 x 100 Pf erhältlich 
PDI, Pf 11 18, D-65464 Linsengericht G 





PD-SERVICE-LAGE bietet Ihnen: 
Publik-Domain & Shareware z.B.: 

über 560 | DEUTSCHE PROGRAMMEI 
über 250 | Disk PD-SPIELE und 
neuste INTERNAT.Programme !!! 
Kopierkosten: 4,50 - 2,70 DM |! 
Alleinvertrieb PC-TEXT 2.0 & 
PC-ADRESS 3.0 v. ROLAND OTTER! 
Kat. f. IBM/kompat. g. 1,80 Porto 
PD-SERVICE-LAGE: Bernd Schulz 
Hasselstr. 38, 4937 Lage/Lippe 

Auch alles auf 3.5“ lieferbar! 

NEU bei uns: Low-Cost-Software! G 





Mr.Paint- Graphikprogramm mit 
3D-Modus, Font-Editor, allen 
geometr. Funktionen u. v. Extras! 
für 6128, Handbuch... DM 33, 
Wahnsinn! - Überraschungsdiskl 
14 Programme auf einer Disk! 
Anwender, Grafik, Unterhaltung! 
Nur DM 25, Tel. 091 02/2433 
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Joyce-PCW XXXX kann MS-DOSII! 
COPY/DIR/ERASE/FORMAT/UMLAU- 
TE, Mini-DOS für 5,25°/3,5"-Disk. 
Preis:50,- DM -> Oliver Reeg 
Krowelstr. 3, 1 Berlin 20 pNN 

Tel. 030/331 1426, von 20-22 h G 


CPC-Monopoly (664/6128) 

2-6 Spieler, sehr schnell, über- 
sichtlicher Aufbau, einfache 
Menüsteuerung, kompl. in deutsch 
3“Disc DM 29 zuzügl. DM 5 Versk. 
Vers. per NN, Roland Schwarz, 
Goethestr. 601, 7314 Wernau 





WIR RÄUMEN UNSER CPG-LAGER. 
PROGRAMME ZU TIEFSTPREISEN! 
STÄHLE SOFTWARELÖSUNGEN 
09111554651 G 


JOYCE DTP STOPPRESS, KPL., WIE 
NEU, NP 198; für 99, (per NN) 
WENZEL, KAPPSTR. 15, 7 STGT 75 


Biete Hardware 


BEBEBENEBEEEBEEEEN 
-->TEST GELESEN? 

PC International 6/89 I!! 
ZWEITLAUFWERK FÜR CPC 6128/664 
5,25” (1a QUALITÄTI) NUR 249; 
JOYCE PCW-80Sp. LAUFW. ab 338, 
Riesen Software-Angebot! 

acw-Soft, Breite Str. 16, 

5300 Bonn 1, 0228/6368 18 
EHRREBEEBEEEBEHBEEEE (G 





TURBO PASCAL 3.0 Orig. Borland 
+ Grafik Erweiterung + Handb. 
+ LEHRBUCH 170 DM 

Tel. 06326/8088, S. BATHELT 


CPC 6128 + 2.LW 5,25“ + 30 DISK. 
3* + LITERATUR 600 DM 
TEL. 06326/8088, S. BATHELT 


CPC464/FARBMJDDI-1/DMP2000 
SOFTWARE/HANDBYJLIT/PC-HEFTE 
AB 4/86, TEL. 0221/68024 18, 950, 





Gebrauchtcomputer mit Garantie 
AMSTRAD - SCHNEIDER - PEACOCK 
* CPC * JOYCE * PC*XT* AT* 
HARDWARE * SOFTWARE * LITERATUR 
Ersatzteile & Reperaturdienst 

ALLES zu echten Superpreisen, 
Ständiger Ankauf 

Höchstpreise für Ihren “ALTEN” 

bei Computer-NEUKAUF Il! 

Katalog anford. (2,- DM in Marken) 
EDV-CLOOTS, 5132 Übach-Palenberg 
Zeisstr, 7, Tel.: 02451/46608 G 





JOYCE PCW 8256 

+ 256K + 5,25*-Laufwerk + Literatur 
+ Disketten inkl. div, Progr. 

kompl. 1500,-, Tel.: 06357/5593 


JOYCE 8256, 1LW 

Loco Script, Multiplan 
DATABOX 12/86 - 12/88 
VOL. 1; 2; 3, 40 Disketten 
VB., Tel. 05381/2930 





SCHNEIDER FARBMONITOR CTM 640 
FUR 330 DM / TEL 02855/3834 


CPC664, FD1 ev. DMP2000; Progr.: WS 
MP TASWORD u.aText + Grafik, jede 
Menge Spiele; ca. 30 Disk u. Cas.; CPC- 
Int. 85-89; VB; 02656/1284 


Geprüfte Gebrauchtgeräte mit Ga- 
rantie, neue und gebr. Schneider und 
Amstrad PC, Floppy/Festplatten/ 
PC-MM und Farbmonitor, neue und 
gebr. CPC/Floppy/Drucker, Ankauf 
bei Systemwechsel, Reparaturser- 
vice, Manfred Kobusch, Bergen- 
kamp 8, 475 Unna, 02303/13345 G 


SPRACH-Synthesizer (+ Prog.) 99; 
(spricht eingetipptes/mit Lautsprecher) 
Modulator,color(CPCanFernseher) 89, 
Thermometer-Modul CPC (2 Fühler 
max.) 59,-, Geräusch-Aufzeichner-Mo- 
dul (+ Mikro.) 69,-, zeichnet kleinste 
Geräusche auf über 24h, 

CNG, Stellinger Weg 43/5, 2000 Ham- 
burg 20, Programm & Gehäuse inklu- 
siv, Prospekt gratis G 


Verk. CPC464 m. GT65 + Schneider- 
ware 2, 6 PIO,8 EPROM/RAM + Soft- 
ware, Tel: 09846/7 04, ab 17Uhr, P: VS. 


VORTEX Fix RS für CPC 464 DM 300, 
SCHNEIDER FD1 für DM 250,-, TIN- 
TENSTRAHLDRUCKER DICONIX-150 
DM 850; (Alles neuwertig ) 
04077605370 


Verk. CPC-6128/Farbm. + NEUE 
Diskstation (Il) + 33 Hefte PC- 
Int/Schn. Mag. + 11 Sonderhefte + 4 
Bücher + TURBO-PascGrafik/Hand- 
buch + 57 Discs mit viel Softw, + 
Joystickadapter für nur 1300.- 

Tel.: 07621/61601 


Lichtgriffel nur DM 49, 

Versand gegen Scheck/Nachnahme 
Info gratis! Computer angeben! 
Anschluß an jeden (!) Computer 
möglich. Standartversion für 

Amstrad lieferbar. Firma Klaus 
Schißlbauer, Postfach 11 71 R 

8458 Sulzbach, Tel.:096 61/6592 

oder 0941/9999 15 bis 21 Uhr G 


CPC 664 Grün + 512K Vortex + ca. 30 
Disk + Literatur VB: 1000 DM 

Tel: 069/77 902437 

Nur werktags bis 16 Uhr 


Suche Software 


SUCHE 

CAD Software Graph PAD3 
für Schneider Joyce 
Telefon 07472/24555 





2) 


SUCHE FÜR JOYCE PCW 82586: FIBU- 
STAR ODER MERCATOR SOWIE 
LOHN/GEHALT UND ANDERE KAUF- 
MÄNNISCHE PROGRAMME ZU KAU- 
FEN ODER GEGEN ANDERE ORIGI- 
NALSOFTWARE TAUSCHEN. 
CLEMENS ORTMANN; BARKENSTR. 
66: 4402 GREVEN 1; TEL. 025713908 
ANRUFBEANT.; NACHR. DRAUFSPRECH. 





Suche Dr. GRAPH für Joyce mit 
Handbuch, Kai Kratz, 06400/8672 





Suche Hardware 


Suche Diskettenlaufwerk f. CPC464 
5,25“, Tel. 0831/61959 


Verschiedenes 


upLink bringt Daten u. Progr. 

vom CPC u. JOYCE (m. CPS 8256) 
direkt zum PC/XT/AT. Transfer 

über die parallelen Schnitt- 

stellen. Komplett 168 DM - NN. 

Info. / Bestellung: CONCEPTION 
GmbH, Hubertusweg 14, 2000 
Hamburg 61, Telefon: 040/584503 G 





Disketten-, Datenkonvertierung 
JOYCE, CPC auf MS-DOS, ATARI 
Bernd Drost, Schulstr. 67 

6382 Friedrichsdorf, T.067 15/604 G 


AMSTRAD PC 1512/1640 USER-CLUB 
bietet mtl. Zeitschrift, Software, 

Hilfe und mehr für alle. 

Inf. gg. Rückp. von Rolf Knorre, 

Postf. 20 01 02, 5600 Wuppertal 2 


SCHNEIDER CPC 6128 MIT DMP 4000, 
35 PC INTER,, BÜCHER, SPIELE, 
TEXTPROGRAMM, 07062/5378 


CP/M und MS-DOS User 
PCKLUB Bonn 

Breite Str. 16 

5300 Bonn 1 

Tel. 0228/6368 18 





USER-CLUB 

FUR JOYCE-ANWENDER! 

Info gegen Rückporto von: 
JOYCE-USERCLUB c/o Je. Berghof, 
Roseggerstr. 5, 5600 Wuppertal 2 


Computerclub Crusader 
Goldberger Weg 44 
5650 Solingen 11 

Tel.: 02 12/6536 35 


MISTERSOFT COMPUTER CLUB 
Der exklusive Club für aktive 
PC-Anwender. Wir bieten Ihnen: 
riesiges Angebot an PD-Soft- 
ware, Kopierservice + Infoblatt 
keine Beiträge!, Interessiert? 
Infos bei: MCC, Hessenstr. 15 
8912 Kaufering (gg. Rückporto!) 





' Das ist Ihre Chance... 


Schon eine Kleinanzeige bringt oftmals großen Erfolg 
und häft, neue Kontakte zu knüpiten 

Nutzen Sie unser Angebot und profitberen Sie von der | 
Tatsache, daß unsere Zeitschrift 


»PC INTERNATIONAL« 


jeden Monat von zigtausend Computer-Interessierten 
gelesen wird 

Möchten Sie etwas verkaufen, tauschen, oder suchen 
Sie das »Tüpfelchen auf gem i« — dann solken Sie die 
eigens hierfür bestimmte Besteitsarte im Heft ausfül- 
len und an unseren Verlag absenden. 

Ihre Annonce erscheint dann in der nachsterreichba- 
ten Ausgabe 

Wir möchten ausdrücklich darauf hinweisen, daß wir 
heine Anzeigen veröffentüchen, zus denen ersichtäch 
ist, daß es sich hierbei um \Veräußerungen von Raud- 
hopien handelt 

Des weitzren machen wir darauf aufmerksam, da in- 
dizierta Computerspiele nicht in Form von Anzeigen 
beworben werden dürfen. 





| Händlerverzeichnis 
Bein WW Kasseiveilmer 


AMSTRAD/SCHNEIDER | | AMSTRAD/SCHNEIDER 


PC's/AT’s-C 64/128 Vertragshändler 


Amiga-PCW Tandon 
Computer-Drucker GmbH 
Zubehör-Software 
Spiele-Service üroelechronic 
a Er | 


W. Müller & 3. Kramke GR m — Holländische Str. 121, 3502 Vellmar, Tel,: 0561/8281650 Riehenring 81 (MUBA) 


- 4058 Basel 
ee MÜHE Telefon (061) 6911262 


0.-Fr. 10- r. Sa, 10- = Fax (061) 6910051 
Eh oTnTst-YLor-stzprzeeen | Fax(o6i) 














Computer Knüppel AG 
Computer und Büromaschinen 
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Micro-Computer. Penphene und Software GmbH 


AMSTRAD, NC SHARP, COMMODORE, 


NEC STAR, EPSON, SOFTWARE-ERSTELLUNG 
rg 


Gibitzenhofstr. 69. 8500 Nürnberg 70, Tel. 09 1114250 18 
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Be au Aatızgı anne 12077 MM beracigenligt wercen! 25.10.89 
eh "unikat COMPUTERVERTRIEB 
Vertrieb MUHLENSTR.2 -» D-30409 SOLTAU 
Service TEL. (0 8101) 13244 - TAG UND NACHT 






BURO-ORGANISATION - DATENTECHNIK Vertnetsgesesscnaft mbH 
4000 Dusseigof 1 Friedenstrafe 13 - Tel 02111308071 





Eintragungen im Händlerverzeichnis, 
nach Städten geordnet, 
kosten je mm Höhe 6, - DM 
bei einer Spaltenbreite von 58 mm. 


Einträge möglich 


mindestens 6 x innerhalb eines Insertionsjahres. 


Nähere Informationen: 
DMV-Verlag 
Wolfgang Brill 
Telefon (05651) 8009-51 
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CPC-PROGRAMMEE: 


Freuen Sie sich auch auf die neue 
Ausgabe, denn dort finden Sie "Pe- 
cunia-CPC”, eine sehr wertvolle 
Hilfe beim Ausfüllen von Formula- 
ren. Eine Arbeitserleichterung, die 
Sie noch schätzen lernen. 





Bild 3: Das CPC-Spiel "Singolo” kann auch mit 
zwei Spielern ausgetragen werden 


TIPS & TRICKS: 


Eine interessante Angelegenheit 
verspricht das Programm "Dump” 
zu sein, das Daten, die sich im Spei- 
cher befinden, grafisch auf dem 
Bildschirm darstellt. 

Es ist doch möglich! Mit unserem 
“Universal-RSX” sind Sprünge wie 
"GOTO x + y*2“” möglich. Doch las- 
sen Sie sich überraschen, was noch 
machbar ist. 
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Bild 1: Nun ist es vollbracht: Endlich ein BTX-Modul für den JOYCE/PCW 


BERICHT: 


Elektronik, Elektronik. Wer mit dem 
Computer arbeitet, wünscht sich 
manchmal, mehr von der harten 
Ware zu verstehen. In der nächsten 
Ausgabe haben Sie Gelegenheit, 
sich in die Grundlagen der Elektro- 
nik einzuarbeiten. Dies soll aber nur 
ein Auftakt sein, denn in den näch- 
sten Ausgaben wird es einen Kur- 
sus “Hardware” für Einsteiger 
geben. 


PCW: 


Der Ton macht die Musik. Daß der 
JOYCE/PCW nicht nur einen Pieps- 
ton erzeugen kann, sondern auch 
durchaus in der Lage ist, Musik zu 
machen, werden Sie sicherlich be- 
geistert feststellen, wenn Sie Ihr er- 
stes Lied eingeben. 





Mit unendlicher Spannung erwar- 
tet und endlich greifbar, das BTX- 
Modul für den JOYCE/PCW-Be- 
sitzer. 


Wer ein Bildschirmtext-Decoder 
besitzen und damit den Dienst der 
Deutschen Bundespost in An- 


spruch nehmen möchte, sollte sich 
in unserem ausführlichen Test von 
der Leistungsfähigkeit informieren. 
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HARDWARE: 


Es werden neue Diskettenlaufwer- 
ke von der Firma G+L angeboten. 
Wir haben davon ein 5 1/4-Zoll und 
ein 3 1/2-Zoll-Laufwerk auf dem 
Prüfstand gehabt. Was dabei her- 
ausgekommen ist, können Sie in 
unserer nächsten Ausgabe nach- 


lesen. 
PC: 


Die Wirtschaft ist das Rad, das un- 
sere Zivilisation antreibt. Nicht alle 
Menschen können an diesem "”Le- 
bensspiel” teilnehmen oder aktiv 
mitmischen, aber hier hat jeder sei- 
ne Chance. Denn nun können Sie 
mit unserer Wirtschaftssimulation, 
die unter BASIC2 läuft, aktiv ein- 
greifen. Bei “impex” können Sie die 
ganze Macht eines Präsidenten be- 
sitzen. 








Bild 2: Lassen Sie Ihre Macht bei der PC-Wirt- 
schaftssimularion spielen. Ein Spiel, das fesselt 
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DMV braucht Platz für neue Ideen — darum müssen wir unsere Lager räumen. 


A hg rn machen wir deshalb ein einmaliges Ang 
Sonderh und Sonderheft 3 sind ab sofort Im Kombi. Pack zum Preis von 20,- DM beim Verlag zu beziehen. 
— Sie sparen 50% gegenüber dem Einzelpreis! 


JOYCE Bon denne sind I vereniehte Bea der PC AMSTRAD International und bieten jeweils auf 120 Seiten 





ausschließlich e e, Tips und Tricks zu PCW 8256, 8512 und 9 12. 

Außerdei zu zu jedem om „Orc E Sonderh f ne Databox, die alle im Heft veröffentlichten Programme lauffähig 
auf zwei 3°-Disketten enthält. Die x ist nicht im Frühlingsaktions-Preis inbegriffen. 

Aus dem Inhalt Aus dem Inhalt 

JOYCE Sonderheft 2: JOYCE Sonderheft 3: 

Programme: 


Adreßverwaltung Vokabeltrainer 
a an (Video-oder Literaturverwaltung) RAM-Monitor-Speicherinhalte verändern 
rin BASIC Memory-Spiel 





Suburbla (Spiel ch Monopoly (F Mini-DTP-Programm 
Turbo-P, CHE lo ohne Drücker- Spocier unter CP/M 
Komfortable Balkengrafik Disketten-Kopierprogramm bis 43 Spuren 
Ti s: Reset ohne Datenverlust 
E-Zweitlaufwerk selbst anschließen Tips: 
3-D-Plotter ps: n u 
Elikettendruckprogramm Grafik auf dem JOYCE-Drucker 
Ordnung auf der Diskette mit LocoScript Tastaturbelegung unter CP/M und 
LocoScript ändern 
Funktionstasten selbst belegen Res D 
paltensatz unter LocoScript BO OHNE DEROORUR 
“Handbuch selbst ausdrucken uper-Werkzeugkiste dBase 
Lo0. Funktionenzeichner Grafikutilities für L 







Jetzt 120 Seiten! Supersoftware und Miormationen; 


Aus dem Inhalt: 
- Strickmustergenerator Hier finden Sie alle Programme und Dateien 
- WordStar-Verbesserungen auf vier Diskettenseiten. 


— Bundesligasimulator 
- Super Reaktionsspiel 
- FILEMANAGER 
- Pulldown-Menüs 


470 KB nur vom Besten... 
Und dennoch behalten wir die alten Preise beil 


Das Leistungsverhältnis, das sich für Sie 


— Stichwortverzeichnis bezahlt macht. 

— Astrologieprogramm Erhältlich als 3“-Disketten für alle 

— Diskettenmonitor E28 PCW 8256/8512/9512 

— Hauptstädte raten in LOG 

- Statuszeile für dBase und Basic bier N sonen an ame lauffähig. 


— Hardcopyroutine für 24-Nadler 

— LOGO macht Schachteln 

- dBase-Literaturverwaltung 

— Universelles Werkzeug zur Veränderung von 


Disk. 1: Best.-Nr. 3671 3C DM 
Disk. 2: Best.-Nr. 3672 24,.—- DN 





dBase-Dateien 
Kombipack Disk. 1 und 2: 
Best.-Nr. 3673 48,— DM 
JOYCE Sonderheft 4 
Den ann Von’deE Anzahl der ten Artikel 
berechne tür das Inland 4,— DM fürc 
Best.-Nr. 367 - Aulanae- DM ee em: ir das 


Bitte benutzen Sie die Bestellkarte. 


DMV-Verlag : Postfach 250 - 3440 Eschwege 





Superpack 


Fast alles wird heute teurer, da Ist es 
doch erfreulich, wenn wir Ihnen etwas 
zeigen, was bei gleichbleibender Quall- 
tät preiswerter wird: Unsere GPC-Son- 
derhefte 1 und 3 bis 5. Sie bieten Ihnen 
alles, was den Prozessor Ihres GPC hö- 
her takten und Ihr Herz höher schlagen 
läßt. Nicht nur Informationen rund um 
den CPC, nein, auch Super-Software 
zum Abtippen, Super-Hardware zum 
Nachbauen, 

«++ Insgesamt über 1 MegaByte an Pro- 
grammen +** bekommen Sie für den sa- 
genhaft günstigen Preis von DM 30, -. 
Hier ein kleiner Überblick über diese 
Fundgrube an Computerspaß: 

— Anwendungen: 5 
Tabellenkalkulalion, Börsenmakler, 
CAD, Terminalprogramm, Vokahel- 
trainer. 

— Hardware: 

Anschluß von Zweitiloppies, Bauanlel- 
tungen rund um den GPC. 

— Spiele: 

Abenteuer, Action, Rollenspiele. Tips 
und Hinweise, falls Sie mal nicht wel- 
terkommen. 

— Tips und Tricks: 

Alles über CPC 464 664 6128, GPIM, 
Assembler. 

Und das Ist nur ein kleiner Querschnitt 
der großen Programmuvielfalt der CPC- 
Sonderhefte 1 und 3 bis 5. 

Also, wenn Sie den Zug nicht verpassen 
wollen — kaufen Sie sich geballte GPC- 
Information zum Sonderpreis. 
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Jetzt wird es aber 
höchste Eisenbahn,... 
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Kraftfutter für Ihren 
CPC - jetzt zum 
günstigen Preis. 
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Grundlagen, viele Tips, nützliche Anwendungen und 
tolle eg ee — ein Muß für Jeden GPG-Anwen- 
der. Dieses Sonderheft behandelt das gesamte Spek- 
trım möglicher CPC-Einsatzgebiete und bietet Informa- 
tionen für jedermann. U.a. komplette Lagerbuchfüh- 
rung, relative und sequentielle Datei, neues Disketten- 
Ber, LRIIOEMENE, CP/M und Turbo Pascal 
und, und, und... 


Best.-Nr.: 312 


Wieder eine Fundgrube für GPG-Besitzer: 

Music-Star ist ein tolles Soundprogramm, machen Sie 
Ihren CPC zum Synthesizer. Spiele wie CÖSMIC, AUXI- 
LIA, SUPERTRON 3D werden Sie in Atem halten. Tips 
und Tricks rund um die CPCs In Assembler, CP/M und 
BASIC. Ein Sprachsynthesizer zum Nachbau, Grundla- 
- über die Floppy- Programmierung — alles das fin- 

en Sie Im Sonderheft 7. 


Best.-Nr.: 313 


Grundlagen: 
Alles über Floppy- 
Programmierung 


SJHCH 
30oMon 
Austilia - im Reich der Magie .. 4 


Anwendungen: 
M: 





* Unabhängig von der Anzahl der bestellten Programme berechnen wir für das Inland 4,— DM bzw. für das Ausland 6,- DM Porto und Verpackung 


(Unverbindliche Preisempfehlung) 


DMV-Verlag - Postfach 250 - 3440 Eschwege N. 


Bitte benutzen Sie die Bestellkarte. 
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